igettdi.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2009-03-23
    
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> PROGRAM HISTORY LOG:
C> 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
C>
C> USAGE:    IGETTDI ( IFLAG )
C>   INPUT ARGUMENT LIST:
C>     IFLAG    - INTEGER: FLAG: IF SET TO 0, THEN THE FUNCTION WILL
C>                RESET THE SCRATCH TABLE D INDEX BACK TO ITS MINIMUM
C>                VALUE; OTHERWISE, IT WILL RETURN THE NEXT USABLE
C>                SCRATCH TABLE D INDEX FOR THE CURRENT MASTER TABLE
C>
C>   OUTPUT ARGUMENT LIST:
C>     IGETTDI  - INTEGER: NEXT USABLE SCRATCH TABLE D INDEX FOR THE
C>                CURRENT MASTER TABLE
C>                  -1 = FUNCTION WAS CALLED WITH IFLAG=0
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        BORT
C>    THIS ROUTINE IS CALLED BY: READS3   STSEQ
C>                               Not normally called by application
C>                               programs.
C>
    FUNCTION igettdi ( IFLAG )
 
 
 
    parameter( idxmin = 62976 )
C*             = IFXY('354000')
 
    parameter( idxmax = 63231 )
C*             = IFXY('354255')
 
    character*128   bort_str
 
    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