igetntbi.f

Go to the documentation of this file.

C> @file
C> @brief Get the next index for storing an entry within an internal
C> DX BUFR table
C>
C> @author J. Ator @date 2009-03-23
 
C> This function returns the next available index for storing an
C> entry within a specified internal DX BUFR table.
C>
C> @param[in]  LUN   -- integer: Internal I/O stream index associated
C>                      with BUFR file
C> @param[in]  CTB   -- character: Type of internal DX BUFR table for
C>                      which to return the next available index
C>                        - 'A' = Table A
C>                        - 'B' = Table B
C>                        - 'D' = Table D
C> @returns igetntbi -- integer: Next available index for storing an
C>                      entry within CTB
C>
C> @author J. Ator @date 2009-03-23
        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