inctab.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	inctab (ATAG, ATYP, NODE)
	THIS SUBROUTINE RETURNS THE NEXT AVAILABLE POSITIONAL INDEX FOR WRITING INTO THE INTERNAL JUMP/LINK TABLE IN MODULE TABLES, AND IT ALSO USES THAT INDEX TO STORE ATAG AND ATYP WITHIN, RESPECTIVELY, THE INTERNAL JUMP/LINK TABLE ARRAYS TAG(*) AND TYP(*). More...

Detailed Description

Author

WOOLLEN

Date

1994-01-06

Definition in file inctab.f.

Function/Subroutine Documentation

subroutine inctab	(	character*(*)	ATAG,
		character*(*)	ATYP,
			NODE
	)

THIS SUBROUTINE RETURNS THE NEXT AVAILABLE POSITIONAL INDEX FOR WRITING INTO THE INTERNAL JUMP/LINK TABLE IN MODULE TABLES, AND IT ALSO USES THAT INDEX TO STORE ATAG AND ATYP WITHIN, RESPECTIVELY, THE INTERNAL JUMP/LINK TABLE ARRAYS TAG(*) AND TYP(*).

IF THERE IS NO MORE ROOM FOR ADDITIONAL ENTRIES WITHIN THE INTERNAL JUMP/LINK TABLE, THEN AN APPROPRIATE CALL IS MADE TO BUFR ARCHIVE LIBRARY SUBROUTINE BORT.

PROGRAM HISTORY LOG: 1994-01-06 J. WOOLLEN – ORIGINAL AUTHOR 1998-07-08 J. WOOLLEN – REPLACED CALL TO CRAY LIBRARY ROUTINE "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB ROUTINE "BORT" 2003-11-04 J. ATOR – ADDED DOCUMENTATION 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – MAXJL (MAXIMUM NUMBER OF JUMP/LINK ENTRIES) INCREASED FROM 15000 TO 16000 (WAS IN VERIFICATION VERSION); UNIFIED/PORTABLE FOR WRF; ADDED HISTORY DOCUMENTATION; OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: CALL INCTAB (ATAG, ATYP, NODE) INPUT ARGUMENT LIST: ATAG - CHARACTER*(*): MNEMONIC NAME ATYP - CHARACTER*(*): MNEMONIC TYPE

OUTPUT ARGUMENT LIST: NODE - INTEGER: NEXT AVAILABLE POSITIONAL INDEX FOR WRITING INTO THE INTERNAL JUMP/LINK TABLE

REMARKS: THIS ROUTINE CALLS: BORT THIS ROUTINE IS CALLED BY: TABENT TABSUB Normally not called by any application programs.

Definition at line 43 of file inctab.f.

References bort().

Referenced by tabent(), and tabsub().