SCULIB_PUT_FITS_C

write a string to a FITS item specified

Description:

This routine writes a FITS character item into a character array ready to be written out to the .MORE.FITS structure in an NDF file. An error will be reported and bad status returned if the name of the FITS item is blank or more than 8 characters long. An error will also occur if the FITS character array is full. The FITS array must contain a final entry of simply ‘END’ unless N_FITS is 0. The END entry is automatically moved to the last field as entries are added to the FITS array.

Invocation

CALL SCULIB_PUT_FITS_C (MAX_FITS, N_FITS, FITS, NAME, VALUE, COMMENT, STATUS)

Arguments

MAX_FITS = INTEGER (Given)
the size of the FITS array
N_FITS = INTEGER (Given and returned)
the number of FITS items currently in the FITS array. This should include an ‘END’ entry. If N_FITS is 1 it will be assumed to be an array with just an ‘END’. If N_FITS=0 on entry the array will be empty and N_FITS will be changed to 2 on exit (the entry and the END card).
FITS (MAX_FITS) = CHARACTER80 (Given and returned)
array containing the FITS items
NAME = CHARACTER() (Given)
the name of the FITS item to be written
VALUE = CHARACTER() (Given)
the value to be assigned to the item
COMMENT = CHARACTER() (Given)
a comment applying to the FITS item
STATUS = INTEGER (Given and returned)
global status

Copyright

Copyright ©1995-2000 Particle Physics and Astronomy Research Council. All Rights Reserved.