Function:     FTSD_WREAL

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

Category:     FITS

File:         ftsd_access.c

Author:       Sjag Steensma (K.G. Begeman)

Use:          INTEGER FTSD_WREAL( HEADER,      Input     CHARACTER*(*)
                                  DESCRIPTOR,  Input     CHARACTER*(*)
				  VALUE,       Input	 REAL
				  COMMENT )    Input     CHARACTER*(*)

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