This routine will get the value of a specified FITS real keyword held in the FITS extension of an NDF file. The FITS extension must have been read into the input array FITS before this routine is called.

The routine assumes that each line in the FITS array will contain a string with format:-

"KEYWORD=VALUE / this is a comment"

It will search the input array for a line containing the required keyword and return VALUE. If the keyword is not found an error will be reported and bad status returned. If the keyword is found but the line does not conform to the above format an error will be reported and bad status returned.

CALL SCULIB_GET_FITS_R (MAX_FITS, N_FITS, FITS, NAME, VALUE, STATUS)

MAX_FITS = INTEGER (Given)

N_FITS = INTEGER (Given)

FITS (MAX_FITS) = CHARACTER$\ast$($\ast$) (Given)

NAME = CHARACTER$\ast$($\ast$) (Given)

VALUE = REAL (Returned)

STATUS = INTEGER (Given and returned)

Copyright ©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.