FTS1_ROOTN

Creates the rootname for an NDF

Description:

This is a server routine for FITSIN. It packages up the operations required to define the rootname for NDFs in automatic mode. The rootname is the prefix followed by the file number underscore sub-file number (if present).

Invocation

CALL FTS1_ROOTN( MEDIUM, FN, SUBFIL, PREFIX, FILROO, NCROOT, : STATUS )

Arguments

MEDIUM = CHARACTER ( ) (Given)
The medium containing the FITS file. Currently supported are DISK for a disk file, and TAPE for standard magnetic tape.
CFN = CHARACTER ( ) (Given)
The number on the tape of the FITS file being processed if MEDIUM is TAPE , or the input disk-FITS filename if MEDIUM is TAPE .
SUBFIL = INTEGER (Given)
The number of the sub-file/extension within the current FITS file being processed.
PREFIX = CHARACTER ( ) (Given)
The prefix to be given to the file name of catalogues produced in automatic mode. It is ignored when %MEDIUM = DISK .
FILROO = CHARACTER ( ) (Returned)
The root file name of NDFs (to be used in automatic mode).
NCROOT = INTEGER (Returned)
The length in characters of the rootname.
STATUS = INTEGER (Given and Returned)
The global status.