31 CHARACTER*128 bort_str
37 IF ( ctb .EQ.
'A' )
THEN
40 ELSE IF ( ctb .EQ.
'B' )
THEN
43 ELSE IF ( ctb .EQ.
'D' )
THEN
50 900
WRITE(bort_str,
'("BUFRLIB: IGETNTBI - NUMBER OF INTERNAL TABLE'
51 . //
'",A1," ENTRIES EXCEEDS THE LIMIT (",I4,")")') ctb, imax
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
function igetntbi(LUN, CTB)
This function returns the next available index for storing an entry within a specified internal DX BU...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...