idlastro / FITS ASCII & Binary Table I/O: FTHELP

[Source code]

NAME
FTHELP
PURPOSE
Routine to print a description of a FITS ASCII table extension
CALLING SEQUENCE
FTHELP, H, [ TEXTOUT = ]
INPUTS
H - FITS header for ASCII table extension, string array
OPTIONAL INPUT KEYWORD
TEXTOUT - scalar number (0-7) or string (file name) determining
        output device (see TEXTOPEN).  Default is TEXTOUT=1, output 
        to the user's terminal    
NOTES
FTHELP checks that the keyword XTENSION  equals 'TABLE' in the FITS
        header.
SYSTEM VARIABLES
Uses the non-standard system variables !TEXTOUT and !TEXTUNIT
which must be defined (e.g. with ASTROLIB) prior to compilation.
PROCEDURES USED
REMCHAR, SXPAR(), TEXTOPEN, TEXTCLOSE, ZPARCHECK
HISTORY
version 1  W. Landsman  Jan. 1988
Add TEXTOUT option, cleaner format  W. Landsman   September 1991
TTYPE value can be longer than 8 chars,  W. Landsman  August 1995
Remove calls to !ERR, some vectorization  W. Landsman  February 2000 
Slightly more compact display  W. Landsman  August 2005