35 SUBROUTINE nemtba(LUN,NEMO,MTYP,MSBT,INOD)
38 CHARACTER*128 bort_str
46 CALL
nemtbax(lun,nemo,mtyp,msbt,inod)
47 IF(inod.EQ.0) goto 900
53 900
WRITE(bort_str,
'("BUFRLIB: NEMTBA - CAN''T FIND MNEMONIC ",A)')
subroutine nemtbax(LUN, NEMO, MTYP, MSBT, INOD)
This subroutine searches for a descriptor within Table A of the internal DX BUFR tables.
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine nemtba(LUN, NEMO, MTYP, MSBT, INOD)
This subroutine searches for a descriptor within Table A of the internal DX BUFR tables.