NCEPLIBS-bufr
11.5.0
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | ufbget (LUNIT, TAB, I1, IRET, STR) |
THIS SUBROUTINE UNPACKS AND RETURNS THE VALUES FOR ONE- DIMENSIONAL DESCRIPTORS IN THE INPUT STRING WITHOUT ADVANCING THE SUBSET POINTER. More... | |
Definition in file ufbget.f.
subroutine ufbget | ( | LUNIT, | |
real*8, dimension(i1) | TAB, | ||
I1, | |||
IRET, | |||
character*(*) | STR | ||
) |
THIS SUBROUTINE UNPACKS AND RETURNS THE VALUES FOR ONE- DIMENSIONAL DESCRIPTORS IN THE INPUT STRING WITHOUT ADVANCING THE SUBSET POINTER.
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"; IMPROVED MACHINE PORTABILITY 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); UNIFIED/PORTABLE FOR WRF; ADDED DOCUMENTATION (INCLUDING HISTORY); OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY 2004-08-09 J. ATOR – MAXIMUM MESSAGE LENGTH INCREASED FROM 20,000 TO 50,000 BYTES 2012-03-02 J. ATOR – USE FUNCTION UPS 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS
USAGE: CALL UFBGET (LUNIT, TAB, I1, IRET, STR) INPUT ARGUMENT LIST: LUNIT - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR BUFR FILE I1 - INTEGER: LENGTH OF TAB STR - CHARACTER*(*): STRING OF BLANK-SEPARATED TABLE B MNEMONICS IN ONE-TO-ONE CORRESPONDENCE WITH THE WORDS IN THE ARRAY TAB
OUTPUT ARGUMENT LIST: TAB - REAL*8: (I1) STARTING ADDRESS OF DATA VALUES READ FROM DATA SUBSET IRET - INTEGER: RETURN CODE: 0 = normal return -1 = there are no more subsets in the BUFR message
REMARKS: THIS ROUTINE CALLS: BORT INVWIN STATUS STRING UPBB UPC UPS USRTPL THIS ROUTINE IS CALLED BY: None Normally called only by application programs.
Definition at line 69 of file ufbget.f.
References bort(), invwin(), status(), string(), upbb(), upc(), ups(), and usrtpl().