tabent.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	tabent (LUN, NEMO, TAB, ITAB, IREP, IKNT, JUM0)
	THIS SUBROUTINE BUILDS AND STORES AN ENTRY FOR A TABLE B OR TABLE D MNEMONIC (NEMO) WITHIN THE INTERNAL JUMP/LINK TABLE. More...

Detailed Description

Author

WOOLLEN

Date

1994-01-06

Definition in file tabent.f.

Function/Subroutine Documentation

tabent()

subroutine tabent	(		LUN,
		character*8	NEMO,
		character*1	TAB,
			ITAB,
			IREP,
			IKNT,
			JUM0
	)

THIS SUBROUTINE BUILDS AND STORES AN ENTRY FOR A TABLE B OR TABLE D MNEMONIC (NEMO) WITHIN THE INTERNAL JUMP/LINK TABLE.

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"; CORRECTED SOME MINOR ERRORS 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 2005-11-29 J. ATOR – ADDED SUPPORT FOR 207 AND 208 OPERATORS 2010-03-19 J. ATOR – ADDED SUPPORT FOR 204 OPERATOR 2012-03-02 J. ATOR – ADDED SUPPORT FOR 203 OPERATOR 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: CALL TABENT (LUN, NEMO, TAB, ITAB, IREP, IKNT, JUM0) INPUT ARGUMENT LIST: LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS NEMO - CHARACTER*8: TABLE B OR D MNEMONIC TO STORE IN JUMP/ LINK TABLE TAB - CHARACTER*1: INTERNAL BUFR TABLE ARRAY ('B' OR 'D') IN WHICH NEMO IS DEFINED ITAB - INTEGER: POSITIONAL INDEX OF NEMO WITHIN TAB IREP - INTEGER: POSITIONAL INDEX WITHIN COMMON /REPTAB/ ARRAYS, FOR USE WHEN NEMO IS REPLICATED: 0 = NEMO is not replicated IKNT - INTEGER: NUMBER OF REPLICATIONS, FOR USE WHEN NEMO IS REPLICATED USING F=1 REGULAR (I.E., NON-DELAYED) REPLICATION: 0 = NEMO is not replicated using F=1 regular (i.e., non-delayed) replication JUM0 - INTEGER: INDEX VALUE TO BE STORED FOR NEMO WITHIN INTERNAL JUMP/LINK TABLE ARRAY JMPB(*)

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

Definition at line 51 of file tabent.f.

References bort(), moda_tables::ibt, moda_nrv203::ibtnrv, inctab(), moda_nrv203::inodnrv, moda_nrv203::ipfnrv, moda_tables::irf, moda_tables::isc, moda_nrv203::isnrv, moda_tables::jmpb, moda_tables::jump, moda_tables::link, modv_mxnrv::mxnrv, nemtbb(), moda_nrv203::nnrv, and moda_nrv203::tagnrv.

Referenced by tabsub().