Function:     GDSCPA

Purpose:      GDSCPA changes the primary axis of an output set to be
              obtained by GDSOUT.

Category:     USER IO

File:         gdsinp.c

Author:       K.G. Begeman

Use:          CALL GDSCPA( KEYOUT,    Input    CHARACTER*(*)
                           AXNUM ,    Input    INTEGER
                           NAXIS ,    Input    INTEGER
                           CDELT ,    Input    DOUBLE PRECISION
                           CROTA ,    Input    DOUBLE PRECISION
                           CRPIX ,    Input    DOUBLE PRECISION
                           CRVAL ,    Input    DOUBLE PRECISION
                           CTYPE ,    Input    CHARACTER*(*)
                           CUNIT ,    Input    CHARACTER*(*)
                           PMASK )    Input    INTEGER

              KEYOUT     Keyword associated with a GDSOUT call.
              AXNUM      The axis number of the axis to be changed.
              NAXIS      Size of the axis.
              CDELT      Increment in physical units along axis.
              CROTA      Rotation angle of axis.
              CRPIX      Reference pixel of axis.
              CRVAL      Physical reference value at reference pixel.
              CTYPE      Axis name.
              CUNIT      Physical units of axis.
              PMASK      Bit mask denoting which of the six above values
                         are defined. The codes are as follows:
                         item        bit      add
                         CDELT        5        32
                         CROTA        4        16
                         CRPIX        3         8
                         CRVAL        2         4
                         CTYPE        1         2
                         CUNIT        0         1
                         So PMASK = 14 (2 + 4 + 8) means that CTYPE,
                         CRPIX and CRVAL are defined. These values must
                         always be defined if an axis is added to the
                         output set.

Related Docs: gdsinp.dc2, gdsout.dc2, gdsasn.dc2, gdscss.dc2, gdscsa.dc2

Updates:      Jan 25, 1990: KGB, Document created.