FTS1_RSTAB

Reads the table format from a FITS file and write to a text file

Description:

This routine reads the data blocks from a FITS table-format tape or disk file, and creates an ASCII file into which it writes the table.

Invocation

CALL FTS1_RSTAB ( TABLE, MEDIUM, MD, PNTABL, TABNAM, AUTO, AXIS1, AXIS2, BLKSIZ, ACTSIZ, BUFFER, OFFSET, CURREC, RECORD, STATUS )

Arguments

TABLE = CHARACTER ∗ ( ∗ ) (Returned)
The work buffer to store a line of the table, i.e. must be AXIS1+1 bytes long.
MEDIUM = CHARACTER ∗ ( ∗ ) (Given)
The medium containing the FITS file. Currently supported is ’ DISK’ for a disk file.
MD = INTEGER (Given)
The tape or file descriptor depending on the value of %MEDIUM.
PNTABL = CHARACTER ∗ ( ∗ ) (Given)
The parameter name used to create and associate the table file.
TABNAM = CHARACTER ∗ ( ∗ ) (Given)
The suggested name of the table file, unless %AUTO is true when it is the actual name of the table file to be created.
AUTO = LOGICAL (Given)
If true the supplied file name is used to open the table file rather than obtaining the file name via the parameter system.
AXIS1 = INTEGER (Given)
Number of characters in a line of the table.
AXIS2 = INTEGER (Given)
The number of lines in the table.
BLKSIZ = INTEGER (Given)
The maximum blocksize and dimension of the tape/disk buffer.
ACTSIZ = INTEGER (Given and Returned)
The actual block size (a multiple of the FITS record length of 2880 bytes). It is only an input argument for %MEDIUM = ’ DISK’ .
BUFFER( BLKSIZ ) = BYTE (Given and Returned)
The buffer containing the block of data. This is only read when %OFFSET does not equal %ACTSIZ, i.e. there are some non-header data within it.
OFFSET = INTEGER (Given and Returned)
The number of bytes in the current block already interpreted.
CURREC = LOGICAL (Given and Returned)
If true the current FITS record is to be used immediately, i.e. it has alrady been read from tape or disk into %RECORD.
RECORD( 2880 ) = BYTE (Given and Returned)
The buffer to hold the current FITS record.
STATUS = INTEGER (Given and Returned)
Global status value.