Function:     ftsd_wdble

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

Category:     FITS

File:         ftsd_access.c

Author:       Sjag Steensma (K.G. Begeman)

Use:          INTEGER FTSD_WDBLE( HEADER,      Input     CHARACTER*(*)
                                  DESCRIPTOR,  Input     CHARACTER*(*)
                                  VALUE,       Input     DOUBLE
                                  COMMENT )    Input     CHARACTER*(*)

              FTSD_WDBLE    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.