C************************************************************************ C* / LOGMSG / * C* * C* This common area contains a string used to hold messages that are * C* to be written to the decoder log. * C************************************************************************ CHARACTER logmsg*200 C* COMMON / LOGMSG / logmsg C* String to hold a message to be C* written to decoder log C* C************************************************************************ C* / INTF / * C* * C* This common area contains the interface arrays. * C************************************************************************ PARAMETER ( NRSLMN = 19 ) C* Number of real interface C* mnemonics C* C* PARAMETER ( NRIMN = NRSLMN ) C* COMMON / RINTFP / + irsaid , irclat , irclon , + irws10 , irhowv , irsdwh , iraltp , + irpeak , iracio , iracdt , + iracwt , irolca , irbkst , + iryear , irmnth , irdays , irhour , irminu , irseco C* Pointers to relative locations of C* real interface mnemonics within C* rimnem ( ). These pointers will C* be set by GF_IFSP and then used as C* indices into the real interface C* values array rivals ( ). C* REAL rivals ( NRIMN ) C* COMMON / RINTFV / rivals C* Real interface values C*