widstape -- Write a Cyber style IDSOUT tape
widstape idsout input records
The specified spectra are copied to the output file in a card-image format defined in the IPPS-IIDS/IRS Reduction Manual. Values from the extended image header are used to fill in the observational parameters.
The basic format consists of 4 - 80 byte header cards, 128 data cards having 8 data elements per card in 1PE10.3 FORTRAN equivalent format, and a trailing blank card for a total of 133 cards. Thus spectra up to 1024 points may be contained in the IDSOUT format. The format is outlined below:
Line Column Type 1 1-5 Integer Record number within IDSOUT text file 6-10 Integer Integration time 11-25 Real Wavelength of first bin 26-40 Real Dispersion 41-45 Integer 0 (Index of first pixel) 46-50 Integer Line length - 1 (Index of last pixel) 71-80 Integer UT time 2 1-10 Real Siderial time 11-25 Real Right Ascension 26-40 Real Declination 3 21-35 Real Hour Angle 36-50 Real Air mass 51-58 Integer UT date 60-76 String Image title 78-80 String END 4 1-64 String Record label 78-80 String END 5-132 Real 1024 pixel values, 8 per line 133 Blank line
The data of type real are in exponent format; i.e FORTRAN E format (1.234e3).
There are no special marks between spectral images, and when multiple spectra are written with a single command, the first card of a subsequent spectrum may be within the same physical tape block as the last card of the previous spectrum. This assures that all tape blocks (except the very last one in the tape file) are all the same length. A double end-of-mark is written after the last spectrum.
The following example writes an IDSOUT format tape starting at the beginning of the tape.
cl> widstape mta nite1 1001-1200 new_tape+
Each spectrum of 1024 points requires about 2 second.