Function:     FTSD_WCHAR

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

Category:     FITS

File:         ftsd_access.c

Author:       Sjag Steensma (K.G. Begeman)

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

	      FTSD_WCHAR    Returns:
                            >=0 : Index of record used in header,
                            -4	: No room in header.
              HEADER        Contains FITS header to write descriptor
                            to.
              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.