- NAME
ST_DISKREAD
- PURPOSE
Read HST FITS formatted disk files and reconstruct GEIS (STSDAS) files.
- CALLING SEQUENCE
ST_DISKREAD, infiles
- INPUT PARAMETER
infiles - (scalar string) input disk files to be converted into GEIS
files. Wildcards are allowed.
- FILES CREATED
GEIS files:
The GEIS file is reconstructed from each input Fits file. The
output filename is composed from the rootname of the observation
and the appropriate GEIS file extension (i.e. d0h/d, c0h/d, etc.).
Tables:
If input file is a fits table, the output is an SDAS table.
- EXAMPLES
a) Reconstruct the GEIS file for disk FITS file z29i020ct*.fits.
st_diskread,'z29i020ct*.fits'
- PROCEDURES CALLED
ST_DISK_DATA, ST_DISK_TABLE, ST_DISK_GEIS
FTSIZE,SXPAR(),TAB_CREATE, TAB_WRITE
- HISTORY
10/17/94 JKF/ACC - taken from ST_TAPEREAD.
11/02/94 JKF/ACC - added /block on open statement to
handle files with 512 bytes/record.
12/6/95 JKF/ACC - include new jitter files...replaces
st_read_jitter.pro.
03/5/96 W. Landsman, change FORRD to READU, remove Version 1
type codes, add message facility
05/20/00 W. Landsman, remove obsolete !ERR calls, new calling
sequence to FTINFO
09/2006 W. Landsman, remove obsolete keywords to OPEN
- ***************************************************************************
Converted to IDL V5.0 W. Landsman September 1997
- NAME
ST_DISK_DATA
- PURPOSE
Routine to read next header and data array from an HST FITS disk file.
This is a subroutine of ST_DISKREAD and not intended for stand alone
use.
- ALLING SEQUENCE
st_disk_data,unit,h,data,name,gcount,dimen,opsize,nbytes,itype
- NPUTS
unit - logical unit number.
- UTPUTS
h - FITS header
data - data array
name - file name
gcount - number of groups
dimen - data dimensions
opsize - parameter blocks size
nbytes - bytes per data group
itype - idl data type
- Notes
This is not a standalone program. Use ST_DISKREAD.
- PROCEDURES CALLED
GETTOK(), SXPAR()
- HISTORY
10/17/94 JKF/ACC - taken from ST_TAPE_DATA.
- **************************************************************************
- AME
ST_DISK_TABLE
- PURPOSE
Routine to read FITS table from an ST fits on disk.
This is a subroutine of st_diskread and not intended for stand alone
use.
- CALLING SEQUENCE
st_disk_table,unit,h,data
- INPUTS PARAMETER
unit - disk unit number
- OUTPUTS
h - FITS header
data - table array
- NOTES
This is not a standalone program. Use ST_DISKREAD.
- HISTORY
10/17/94 JKF/ACC - taken from ST_TAPE_TABLE.
12/7/95 JKF/ACC - handle tables for jitter data.
- ***************************************************************************
- NAME
ST_DISK_GEIS
- PURPOSE
Routine to construct GEIS files from ST FITS disk files.
- CALLING SEQUENCE
ST_DISK_GEIS, h, data, htab, tab, table_available, name, gcount,
dimen,opsize, nbytes_g,itype
- INPUT PARAMETERS
h - header for data
data - data array
htab - header for the table
tab - fits table
table_available - logical variable (1 if table was found)
name - data set name
gcount - number of groups
dimen - data dimensions
opsize - original parameter block size
nbytes_g - number of bytes per group
itype - idl integer data type value for the output data groups
- SIDE EFFECTS
GEIS file updated with group parameters in unit 1 (already open)
and header file created
- NOTES
This is not a standalone program. Use st_diskread.
During the creation of the header, this routine performs the
following steps:
1) create a basic fits header (7 keywords)
2) adjust basic fits header for the number of axis present (i.e. >1)
3) adjust basic fits header for parameter keywords (i.e. ptype,etc)
4) from this point, sequentially copies keywords until it hits one of
the following keywords 'INSTRUME','INSTRUID', or 'CONFG'.
5) append 'END' statement
- PROCEDURES CALLED
FTSIZE, SXADDPAR, SXHWRITE
- HISTORY
10/17/94 JKF/ACC - taken from ST_DISK_GEIS
- ***************************************************************************