58 SUBROUTINE numtab(LUN,IDN,NEMO,TAB,IRET)
63 COMMON /reptab/ idnr(5,2),typs(5,2),reps(5,2),lens(5)
80 IF(idn.GE.idnr(1,1) .AND. idn.LE.idnr(1,2))
THEN
94 IF(idn.EQ.idnr(i,1))
THEN
98 ELSEIF(idn.EQ.idnr(i,2))
THEN
108 CALL
numtbd(lun,idn,nemo,tab,iret)
109 IF(iret.NE.0) goto 100
117 READ(nemo,
'(1X,I2)') iret
subroutine numtab(LUN, IDN, NEMO, TAB, IRET)
This subroutine returns information about a descriptor from the internal DX BUFR tables, based on the bit-wise representation of the FXY value associated with that descriptor.
subroutine numtbd(LUN, IDN, NEMO, TAB, IRET)
This subroutine searches for a descriptor within Table B and Table D of the internal DX BUFR tables...
character *(*) function adn30(IDN, L30)
This function converts an FXY value from its bit-wise (integer) representation to its 5 or 6 characte...
INTEGER function iokoper(NEMO)
This function determines whether a specified mnemonic is a Table C operator supported by the BUFRLIB ...