Subroutine:          GDSD_WFITS

Purpose:       Write FITS-type descriptor item

File:          gdsd_wfits.shl

Category:      GDS

Author:        J.P. Terlouw

Use:           CALL GDSD_WFITS ( 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 to which the FITS
                              item belongs.                       INTEGER
               record   =     FITS record, consisting of keyword,
                              data and comment. The keyword need
                              not be present if `name' is specified.
                                                                  CHARACTER*80
             * error    =     error return code                   INTEGER

Other entries: GDSD_RFITS, GDSD_RINT, GDSD_WINT, GDSD_RREAL, GDSD_WREAL,
               GDSD_RDBLE, GDSD_WDBLE, GDSD_RLOG, GDSD_WLOG, 
               GDSD_RCHAR, GDSD_WCHAR.

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