34 SUBROUTINE nemdefs ( LUNIT, NEMO, CELEM, CUNIT, IRET )
40 CHARACTER*(*) nemo, celem, cunit
49 CALL
status( lunit, lun, il, im )
50 IF ( il .EQ. 0 )
RETURN
54 CALL
nemtab( lun, nemo, idn, tab, iloc )
55 IF ( ( iloc .EQ. 0 ) .OR. ( tab .NE.
'B' ) )
RETURN
60 ls = min(len(celem),55)
61 celem(1:ls) = tabb(iloc,lun)(16:15+ls)
64 ls = min(len(cunit),24)
65 cunit(1:ls) = tabb(iloc,lun)(71:70+ls)
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine nemdefs(LUNIT, NEMO, CELEM, CUNIT, IRET)
Given a Table B mnemonic defined in the DX BUFR Tables associated with a BUFR file (or in the master ...
subroutine nemtab(LUN, NEMO, IDN, TAB, IRET)
THIS SUBROUTINE SEARCHES FOR MNEMONIC NEMO WITHIN THE INTERNAL TABLE B AND D ARRAYS HOLDING THE DICTI...