FTS1_GPARM

Adds the group parameters to the FITS header records

Description:

This is a server routine for FITSIN. It packages up the operations required to add the group parameters to the HDS structure that contains the FITS header cards. It also writes the group parameters to a log file is required.

Each group parameter is evaluated in double precision from its scale and offset, and with the parameter name a pseudo FITS card is generated. In the header structure the last card—has the END keyword—is overwritten. Once all the group parameters have been copied into the header structure, an END card is placed after them to preserve a valid FITS header section.

Invocation

CALL FTS1_GPARM( NCARD, HEADER, PCOUNT, PARAMS, PTYPE, PSCALE, : PZERO, BAD, BLANK, LOGHDR, FD, STATUS )

Arguments

NCARD = INTEGER (Given)
The number of header 80-character cards in the original FITS header. It excludes the number of group parameters.
HEADER( NCARD + PCOUNT ) = CHARACTER ∗ 80 (Given)
The FITS headers in 80-character cards. The aditional PCOUNT elements are for the group parameters.
PCOUNT = INTEGER (Given)
The number of group parameters in each group.
PARAMS( PCOUNT ) = INTEGER (Given)
The values of the group parameters in the header, i.e. before any scale and offset have been applied.
PTYPE( PCOUNT ) = CHARACTER ∗ ( ∗ ) (Given)
The type (descriptive name) of each group parameter.
PSCALE( PCOUNT ) = DOUBLE PRECISION (Given)
The scale factors of the group parameters so that the parameters may be converted to the true floating-point values.
PZERO( PCOUNT ) = DOUBLE PRECISION (Given)
The offsets of the group parameters so that the parameters may be converted to the true floating-point values.
BAD = LOGICAL (Given)
If true, testing and replacement of undefined parameters is to occur. A blank value, as specified by %BLANK, is replaced by the standard magic value. If false, the value of %BLANK is ignored.
BLANK = INTEGER (Given)
Value of an undefined parameter.
LOGHDR = LOGICAL (Given)
If true the evaluated group parameters written in FITS-card format will be written to the log file.
FD = INTEGER (Given)
The file descriptor for the log file. It is ignored if %LOGHDR is false.
STATUS = INTEGER (Given and Returned)
The global status.