igettdi.f File Reference

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...

Detailed Description

Author

ATOR

Date

2009-03-23

Definition in file igettdi.f.

Function/Subroutine Documentation

igettdi()

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(), and igettdi().

Referenced by igettdi(), and reads3().