Subroutine:    GDSD_RFITS

Purpose:       Read FITS descriptor item

File:          gdsd_wfits.shl

Category:      GDS

Author:        J.P. Terlouw

Use:           CALL GDSD_RFITS ( file_id, *name, level, record, *error )

               file_id  =     file identifier,                    CHARACTER
             * name     =     name of FITS item. If omitted, the keyword
                              found in `record' is used.          CHARACTER*8
               level    =     coordinate word specifying the
                              substructure from which the FITS
                              item is to be obtained. If it is not
                              present at this level, higher levels are
                              inspected until the item is found or proven
                              to be not present.                  INTEGER
               record   =     FITS record, consisting of keyword,
                              data and comment.                   CHARACTER*80
             * error    =     error return code,                  INTEGER

Updates:      25-May-87   original document
              14-Dec-89   brought under GPS