NCEPLIBS-bufr
11.5.0
|
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... | |
Definition in file rcstpl.f.
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 bort(), errwrt(), igetrfel(), strbtm(), and upbb().
Referenced by rdtree().