rcstpl.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	rcstpl (LUN, IRET)
	THIS SUBROUTINE STORES THE SUBSET TEMPLATE INTO INTERNAL SUBSET ARRAYS IN MODULES USRINT AND USRBIT. More...

Detailed Description

Author

WOOLLEN

Date

1994-01-06

Definition in file rcstpl.f.

Function/Subroutine Documentation

rcstpl()

subroutine rcstpl	(		LUN,
			IRET
	)

THIS SUBROUTINE STORES THE SUBSET TEMPLATE INTO INTERNAL SUBSET ARRAYS IN MODULES USRINT AND USRBIT.

THIS IS IN PREPARATION FOR THE ACTUAL UNPACKING OF THE SUBSET IN BUFR ARCHIVE LIBRARY SUBROUTINE RDTREE.

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" 1998-10-27 J. WOOLLEN – MODIFIED TO CORRECT PROBLEMS CAUSED BY IN- LINING CODE WITH FPP DIRECTIVES 1999-11-18 J. WOOLLEN – THE NUMBER OF BUFR FILES WHICH CAN BE OPENED AT ONE TIME INCREASED FROM 10 TO 32 (NECESSARY IN ORDER TO PROCESS MULTIPLE BUFR FILES UNDER THE MPI) 2000-09-19 J. WOOLLEN – MAXIMUM MESSAGE LENGTH INCREASED FROM 10,000 TO 20,000 BYTES 2002-05-14 J. WOOLLEN – REMOVED OLD CRAY COMPILER DIRECTIVES 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); MAXRCR (MAXIMUM NUMBER OF RECURSION LEVELS) INCREASED FROM 50 TO 100 (WAS IN VERIFICATION VERSION); UNIFIED/PORTABLE FOR WRF; ADDED DOCUMENTATION (INCLUDING HISTORY); OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY; COMMENTED OUT HARDWIRE OF VTMP TO "BMISS" (10E10) WHEN IT IS > 10E9 (CAUSED PROBLEMS ON SOME FOREIGN MACHINES) 2004-08-09 J. ATOR – MAXIMUM MESSAGE LENGTH INCREASED FROM 20,000 TO 50,000 BYTES 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS 2016-11-09 J. ATOR – ADDED IRET ARGUMENT AND CHECK FOR POSSIBLY CORRUPT SUBSETS

USAGE: CALL RCSTPL (LUN,IRET) INPUT ARGUMENT LIST: LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS

OUTPUT ARGUMENT LIST: IRET - INTEGER: RETURN CODE: 0 = NORMAL RETURN -1 = AN ERROR OCCURRED, POSSIBLY DUE TO A CORRUPT SUBSET IN THE INPUT MESSAGE

REMARKS: THIS ROUTINE CALLS: BORT IGETRFEL STRBTM UPBB THIS ROUTINE IS CALLED BY: RDTREE Normally not called by any application programs.

Definition at line 59 of file rcstpl.f.

References modv_bmiss::bmiss, bort(), errwrt(), moda_tables::ibt, igetrfel(), moda_tables::itp, modv_maxjl::maxjl, modv_maxss::maxss, moda_bitbuf::mbay, strbtm(), moda_tables::tag, upbb(), and moda_tables::vali.

Referenced by rdtree().