REAL*8 r8bfms COMMON / BFMISS / r8bfms C* BUFR "missing" value 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************************************************************************ C* PARAMETER ( NRIMN = 10 ) C* Number of real interface C* mnemonics C* PARAMETER ( NR8IMN = 3 ) C* Number of real*8 interface C* mnemonics C* COMMON / RINTFP / + iryear , irmnth , irdays , irhour , irminu , + ircyln , irorbn , irsaid , irsclf , irobql , + irslat , irslon , irshd1 C* Pointers to relative locations of C* interface mnemonics within C* rimnem ( ) and r8mnem ( ). C* These pointers will be set by C* AL_IFSP and then used as indices C* into the real interface values C* arrays rivals ( ) and r8vals ( ). C* REAL rivals ( NRIMN ) C* REAL*8 r8vals ( NR8IMN ) C* COMMON / RINTFV / rivals C* Real*4 interface values C* COMMON / R8NTFV / r8vals C* Real*8 interface values