Description:
This routine writes a
FITS integer 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_I (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 = INTEGER
(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,1996,1997,1998,1999 Particle Physics and Astronomy Research
Council. All Rights Reserved.