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

[Source code]

NAME
FTPRINT
PURPOSE
Procedure to print specified columns and rows of a FITS table
ALLING SEQUENCE
FTPRINT, h, tab, columns, [ rows, TEXTOUT = ]
NPUTS
h - Fits header for table, string array
tab - table array 
columns - string giving column names, or vector giving
        column numbers (beginning with 1).  If string 
        supplied then column names should be separated by comma's.
rows - (optional) vector of row numbers to print.  If
        not supplied or set to scalar, -1, then all rows
        are printed.
UTPUTS
None
PTIONAL INPUT KEYWORDS
TEXTOUT controls the output device; see the procedure TEXTOPEN
YSTEM VARIABLES
Uses nonstandard system variables !TEXTOUT and !TEXTOPEN
These will be defined (using ASTROLIB) if not already present.
Set !TEXTOUT = 3 to direct output to a disk file.   The system
variable is overriden by the value of the keyword TEXTOUT
XAMPLES
ftprint,h,tab,'STAR ID,RA,DEC'    ;print id,ra,dec for all stars
ftprint,h,tab,[2,3,4],indgen(100) ;print columns 2-4 for 
                                  ;first 100 stars
ftprint,h,tab,text="stars.dat"    ;Convert entire FITS table to
                                  ;an ASCII file named STARS.DAT
ROCEDURES USED
FTSIZE, FTINFO, TEXTOPEN, TEXTCLOSE
ESTRICTIONS
(1) Program does not check whether output length exceeds output
        device capacity (e.g. 80 or 132).
(2) Column heading may be truncated to fit in space defined by
        the FORMAT specified for the column
(3) Program does not check for null values
ISTORY
version 1  D. Lindler Feb. 1987
Accept undefined values of rows, columns   W. Landsman August 1997
New FTINFO calling sequence    W. Landsman   May 2000
Parse scalar string with STRSPLIT   W. Landsman  July 2002
Fix format display of row number  W. Landsman March 2003
Fix format display of row number again  W. Landsman May 2003