Function: FTSD_MKHEAD Purpose: Creates the FITS descriptors describing the coordinate system from a GDS (sub)set. Category: FITS File: ftsd_mkhead.c Author: K.G. Begeman Use: INTEGER FTSD_MKHEAD( SET , Input CHARACTER*(*) CWLO , Input INTEGER CWHI , Input INTEGER BLOCKED , Input LOGICAL HEADER , Output CHARACTER*(80) MAXREC ) Input INTEGER FTSD_MKHEAD Returns: >0: Number of records added to HEADER. -1: Set does not exist. -2: memory allocation error. -3: Not enough space in HEADER. SET Name of set. CWLO Lower coordinate word of subset frame. CWHI Upper coordinate word of subset frame. BLOCKED True is tape maybe blocked, false if not. HEADER Character array to receive the FITS descriptors. MAXREC Maximum number of FITS records in HEADER. Updates: Dec 16, 1990: KGB Document created. Oct 9, 1999: VOG Fix number of dashes between ctypes's RA/DEC and their projections so that projections are correctly read in AIPS and IRAF.