NCEPLIBS-bufr
11.6.0
|
Go to the source code of this file.
Functions/Subroutines | |
function | igettdi (IFLAG) |
DEPENDING ON THE VALUE OF THE INPUT FLAG, THIS FUNCTION EITHER RETURNS THE NEXT USABLE SCRATCH TABLE D INDEX FOR THE CURRENT MASTER TABLE OR ELSE RESETS THE INDEX BACK TO ITS MINIMUM VALUE. More... | |
Definition in file igettdi.f.
function igettdi | ( | IFLAG | ) |
DEPENDING ON THE VALUE OF THE INPUT FLAG, THIS FUNCTION EITHER RETURNS THE NEXT USABLE SCRATCH TABLE D INDEX FOR THE CURRENT MASTER TABLE OR ELSE RESETS THE INDEX BACK TO ITS MINIMUM VALUE.
PROGRAM HISTORY LOG: 2009-03-23 J. ATOR – ORIGINAL AUTHOR
USAGE: IGETTDI ( IFLAG ) INPUT ARGUMENT LIST: IFLAG - INTEGER: FLAG: IF SET TO 0, THEN THE FUNCTION WILL RESET THE SCRATCH TABLE D INDEX BACK TO ITS MINIMUM VALUE; OTHERWISE, IT WILL RETURN THE NEXT USABLE SCRATCH TABLE D INDEX FOR THE CURRENT MASTER TABLE
OUTPUT ARGUMENT LIST: IGETTDI - INTEGER: NEXT USABLE SCRATCH TABLE D INDEX FOR THE CURRENT MASTER TABLE -1 = FUNCTION WAS CALLED WITH IFLAG=0
REMARKS: THIS ROUTINE CALLS: BORT THIS ROUTINE IS CALLED BY: READS3 STSEQ Not normally called by application programs.
Definition at line 30 of file igettdi.f.
References bort().