47 CHARACTER*(*) atag,atyp
48 CHARACTER*128 bort_str
54 IF(ntab.GT.maxtab) goto 900
63 900
WRITE(bort_str,
'("BUFRLIB: INCTAB - THE NUMBER OF JUMP/LINK '//
64 .
'TABLE ENTRIES EXCEEDS THE LIMIT, MAXTAB (",I7,")")') maxtab
subroutine inctab(ATAG, ATYP, NODE)
THIS SUBROUTINE RETURNS THE NEXT AVAILABLE POSITIONAL INDEX FOR WRITING INTO THE INTERNAL JUMP/LINK T...
This module contains array and variable declarations used to store the internal jump/link table...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...