Subroutine: IRDS_ENQUIRE_SNIP Purpose: returns some basic information of a snip File: irds_basic.c Author: Do Kester Use: CALL IRDS_ENQUIRE_SNIP( IRDS, I character*(*) SNIP, I integer SOP, O integer OBS, O integer ATT, O integer SCANTYPE, O character*(*) SCANCAL, O integer SCANDUR, O integer SNIPCAL, O integer SNIPDUR, O integer PSI, O real PSIRATE, O real THETA, O real STATUS ) O integer IRDS name of irds SNIP sequential snip number for which information is required SOP sop number of the snip OBS observation number of the snip ATT attitude block number of snip SCANTYPE SCANCAL satcal at the beginning of the original scan SCANDUR duration in ticks of the original scan SNIPCAL ticks since scancal to begin of snip SNIPDUR duration in ticks of the snip PSI intended psi at scancal PSIRATE intended rate in psi during scan THETA intended theta of scan STATUS 0 : OK. -1 : cannot find irds -2 : snip does not exist -nn: errors from GDSD_Rxxx Description: The header items of the specified snip are read and returned to the caller. Externals: Updates: 23/02/90 DK, document creation 16/10/90 DK, change in status return values 19/12/90 DK, determine error status -2 via gdsc_ndims 18/03/92 FL, OBS and SCANTYPE added, no error if not present, but zero and blank are returned to also handle old irds data. To add these items in header use FIXSNIP