44 CHARACTER*128 bort_str
55 IF(ntba(lun).EQ.0) goto 900
56 IF(ntbb(lun).EQ.0) goto 901
57 IF(ntbd(lun).EQ.0) goto 902
63 nemo = taba(i,lun)(4:11)
64 CALL
nemtab(lun,nemo,idn,tab,iret)
65 IF(tab.NE.
'D') goto 903
72 CALL
nemtbb(lun,itab,unit,iscl,iref,ibit)
79 CALL
nemtbd(lun,itab,nseq,nem(1,1),irp(1,1),krp(1,1))
87 . (
'BUFRLIB: CHEKSTAB - EMPTY TABLE A IN INTERNAL BUFR TABLES')
89 . (
'BUFRLIB: CHEKSTAB - EMPTY TABLE B IN INTERNAL BUFR TABLES')
91 . (
'BUFRLIB: CHEKSTAB - EMPTY TABLE D IN INTERNAL BUFR TABLES')
92 903
WRITE(bort_str,
'("BUFRLIB: CHEKSTAB - TABLE A ENTRY: ",A," NOT '//
93 .
'DEFINED AS A SEQUENCE")') nemo
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
subroutine nemtbb(LUN, ITAB, UNIT, ISCL, IREF, IBIT)
This subroutine returns information about a Table B descriptor from the internal DX BUFR tables...
subroutine chekstab(LUN)
THIS SUBROUTINE CHECKS THAT AN INTERNAL BUFR TABLE REPRESENTATION IS SELF-CONSISTENT AND FULLY DEFINE...
subroutine nemtab(LUN, NEMO, IDN, TAB, IRET)
This subroutine returns information about a descriptor from the internal DX BUFR tables, based on the mnemonic associated with that descriptor.
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine nemtbd(LUN, ITAB, NSEQ, NEMS, IRPS, KNTS)
This subroutine returns information about a Table D descriptor from the internal DX BUFR tables...