inctab.f

Go to the documentation of this file.

C> @file
C> @brief Get the next available positional index
C> for writing into the internal jump/link table.
C>
C> @author Woollen @date 1994-01-06
 
C> This subroutine returns the next available positional index
C> for writing into the internal jump/link table in module tables,
C> and it also uses that index to store atag and atyp within,
C> respectively, the internal jump/link table arrays tag(*) and typ(*).
C> If there is no more room for additional entries within the internal
C> jump/link table, then an appropriate call is made to subroutine bort().
C>
C> @param[in] ATAG - character*(*): mnemonic name.
C> @param[in] ATYP - character*(*): mnemonic type.
C> @param[in] NODE - integer: next available positional index for writing
C> into the internal jump/link table.
C>
C> @author Woollen @date 1994-01-06
      SUBROUTINE inctab(ATAG,ATYP,NODE)
 
      USE moda_tables
 
      CHARACTER*(*) ATAG,ATYP
      CHARACTER*128 BORT_STR
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
      ntab = ntab+1
      IF(ntab.GT.maxtab) GOTO 900
      tag(ntab) = atag
      typ(ntab) = atyp
      node = ntab
 
C  EXITS
C  -----
 
      RETURN
 900  WRITE(bort_str,'("BUFRLIB: INCTAB - THE NUMBER OF JUMP/LINK '//
     . 'TABLE ENTRIES EXCEEDS THE LIMIT, MAXTAB (",I7,")")') maxtab
      CALL bort(bort_str)
      END