Function:     FTSD_FIND

Purpose:      Finds a FITS descriptor in a set of FITS records.

Category:     FITS

File:         ftsd_access.c

Author:       K.G. Begeman

Use:          INTEGER FTSD_FIND( HEADER,      Input     CHARACTER*(*)
                                 DESCRIPTOR,  Input     CHARACTER*(*)
                                 RECORD )     Output    CHARACTER*(*)

              FTSD_FIND     Returns:
              		    >=0	: offset of record in header,
                            -1  : FITS descriptor not present
              HEADER        Contains FITS records where to look
                            for the descriptor.
              DESCRIPTOR    FITS descriptor to search for in HEADER.
              RECORD        If present, the complete FITS record
                            associated with DESCRIPTOR is returned
                            (including the descriptor).

Updates:      Jun 25, 1990: KGB, Document created.
	      Aug 14, 1990: Sjag; Offset of record is returned.