51 IF (
icmpdx(lui,luo) .EQ. 1 )
THEN
60 subset = tag(inode(lui))
61 CALL
nemtbax(luo,subset,mtyp,msbt,inod)
62 IF ( inod .EQ. 0 )
RETURN
67 ntei = isc(inode(lui))-inode(lui)
69 IF ( ntei .NE. nteo )
RETURN
72 IF ( tag(inode(lui)+i) .NE. tag(inod+i) )
RETURN
73 IF ( typ(inode(lui)+i) .NE. typ(inod+i) )
RETURN
74 IF ( isc(inode(lui)+i) .NE. isc(inod+i) )
RETURN
75 IF ( irf(inode(lui)+i) .NE. irf(inod+i) )
RETURN
76 IF ( ibt(inode(lui)+i) .NE. ibt(inod+i) )
RETURN
subroutine nemtbax(LUN, NEMO, MTYP, MSBT, INOD)
This subroutine searches for a descriptor within Table A of the internal DX BUFR tables.
This module contains array and variable declarations used to store the internal jump/link table...
INTEGER function iok2cpy(LUI, LUO)
This function determines whether a BUFR message, or a data subset from within a BUFR message...
INTEGER function icmpdx(LUD, LUN)
This function determines whether the full set of associated DX BUFR Table information is identical be...