33 SUBROUTINE nemtbax(LUN,NEMO,MTYP,MSBT,INOD)
38 CHARACTER*128 bort_str
49 IF(taba(i,lun)(4:11).EQ.nemo)
THEN
53 IF(mtyp.LT.0 .OR. mtyp.GT.255) goto 900
54 IF(msbt.LT.0 .OR. msbt.GT.255) goto 901
63 900
WRITE(bort_str,
'("BUFRLIB: NEMTBAX - INVALID MESSAGE TYPE (",I4'//
64 .
',") RETURNED FOR MENMONIC ",A)') mtyp,nemo
66 901
WRITE(bort_str,
'("BUFRLIB: NEMTBAX - INVALID MESSAGE SUBTYPE ("'//
67 .
',I4,") RETURNED FOR MENMONIC ",A)') msbt,nemo
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 DX BUFR tables internally for mult...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...