igettdi.f

Go to the documentation of this file.

C> @file
C> @brief Get the next usable Table D index for the
C> current master table, or reset the index.
C>
C> @author Ator @date 2009-03-23
 
C> Get the next usable Table D index for the
C> current master table, or reset the index.
C>
C> Depending on the value of the input flag, this function
C> either returns the next usable scratch Table D index for the
C> current master table or else resets the index back to its
C> minimum value.
C>
C> @param[in] IFLAG - integer:
C>   - if set to 0, then the function will reset the scratch Table D index
C>     back to its minimum value
C>   - otherwise, the function will return the next usable scratch Table D
C>     index for the current master table
C>
C> @return - integer:
C>   - -1 if function was called with IFLAG=0
C>   - otherwise, the next usable scratch Table D index for the
C>     current master table
C>
C> @author J. Ator @date 2009-03-23
        FUNCTION igettdi ( IFLAG )
 
        parameter( idxmin = 62976 )
C*                         = IFXY('354000')
 
        parameter( idxmax = 63231 )
C*                         = IFXY('354255')
 
        SAVE idx
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
        IF ( iflag .EQ. 0 ) THEN
 
C*        Initialize the index to one less than the actual minimum
C*        value.  That way, the next normal call will return the
C*        minimum value.
 
          idx = idxmin - 1
          igettdi = -1
        ELSE
          idx = idx + 1
          IF ( idx .GT. idxmax ) GOTO 900
          igettdi = idx
        ENDIF
 
        RETURN
 900    CALL bort('BUFRLIB: IGETTDI - IDXMAX OVERFLOW')
        END