igetntbi.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2009-03-23
    
C> THIS FUNCTION RETURNS THE NEXT AVAILABLE INDEX FOR
C>   STORING AN ENTRY WITHIN INTERNAL BUFR TABLE CTB.
C>
C> PROGRAM HISTORY LOG:
C> 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
C> 2014-12-10  J. ATOR    -- USE MODULES INSTEAD OF COMMON BLOCKS
C>
C> USAGE:    CALL IGETNTBI ( LUN, CTB )
C>   INPUT ARGUMENT LIST:
C>     LUN      - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS
C>     CTB      - CHARACTER*1: INTERNAL BUFR TABLE FROM WHICH TO RETURN
C>                THE NEXT AVAILABLE INDEX ('A','B', OR 'D')
C>
C>   OUTPUT ARGUMENT LIST:
C>     IGETNTBI  - INTEGER: NEXT AVAILABLE INDEX IN TABLE CTB
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        BORT
C>    THIS ROUTINE IS CALLED BY: RDUSDX   READS3   STBFDX   STSEQ
C>                               Not normally called by application
C>                               programs.
C>
    FUNCTION igetntbi ( LUN, CTB )

    USE moda_tababd

    CHARACTER*128 bort_str
    CHARACTER*1   ctb

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

    IF ( ctb .EQ. 'A' ) THEN
      igetntbi = ntba(lun) + 1
      imax = ntba(0)
    ELSE IF ( ctb .EQ. 'B' ) THEN
      igetntbi = ntbb(lun) + 1
      imax = ntbb(0)
    ELSE IF ( ctb .EQ. 'D' ) THEN
      igetntbi = ntbd(lun) + 1
      imax = ntbd(0)
    ENDIF
    IF ( igetntbi .GT. imax ) goto 900

    RETURN
900 WRITE(bort_str,'("BUFRLIB: IGETNTBI - NUMBER OF INTERNAL TABLE'
     .    //'",A1," ENTRIES EXCEEDS THE LIMIT (",I4,")")') ctb, imax
    CALL bort(bort_str)
    END