Function:     FTSD_WLOG

Purpose:      Writes a FITS logical descriptor in a FITS header.

Category:     FITS

File:         ftsd_access.c

Author:       Sjag Steensma (K.G. Begeman)

Use:          INTEGER FTSD_WLOG( HEADER,      Input     CHARACTER*(*)
                                 DESCRIPTOR,  Input     CHARACTER*(*)
                                 VALUE,       Input     LOGICAL
                                 COMMENT )    Input     CHARACTER*(*)

              FTSD_WLOG     Returns:
                            >=0 : Index of record in header,
                            -4	: No room in header.
              HEADER        Contains FITS header to write descriptor in,
              DESCRIPTOR    FITS descriptor to write in HEADER.
              VALUE         Value for value field of DESCRIPTOR.
              COMMENT	    Comment for commentfield of record.
Updates:
	Aug 14, 1990: Sjag; document created.