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> This function returns the next available index for storing an
C> entry within a specified internal DX BUFR table.
C>
C> @author J. Ator
C> @date 2009-03-23
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> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2009-03-23 | J. Ator | Original author |
C> | 2014-12-10 | J. Ator | Use modules instead of COMMON blocks |
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