FTS1_SKIP

Skips over the data of a FITS file

Description:

This routine skips over the data in a FITS file by reading the data blocks from the FITS file. The file may be basic FITS, groups or an extension.

Invocation

CALL FTS1_SKIP( MEDIUM, MD, SIZE, BPV, GCOUNT, PCOUNT, BLKSIZ, : ACTSIZ, BUFFER, OFFSET, RECORD, RDISP, STATUS )

Arguments

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.
SIZE = INTEGER (Given)
The number of elements in the data array.
BPV = INTEGER (Given)
The number of bytes per data value.
GCOUNT = INTEGER (Given)
The number of groups in the file.
PCOUNT = INTEGER (Given)
The number of parameters per group in the file.
BLKSIZ = INTEGER (Given)
The maximum blocksize and dimension of the tape 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.
RDISP = INTEGER (Given and Returned)
The number of bytes in the current record already interpreted. If this displacement is equal to the record length then a new FITS record will be obtained. The displacement will be updated during processing of the group parameters and data, and therefore can have an arbitrary value between 0 and 2880. Do not modify this argument outside this routine once initialised.
RECORD( 2880 ) = BYTE (Given and Returned)
The buffer to hold the current FITS record.
STATUS = INTEGER (Given and Returned)
Global status value.