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