NCEPLIBS-bufr
11.6.0
|
Go to the source code of this file.
Functions/Subroutines | |
REAL *8 function | ups (IVAL, NODE) |
THIS FUNCTION UNPACKS A REAL*8 USER VALUE FROM A PACKED BUFR INTEGER BY APPLYING THE PROPER SCALE AND REFERENCE VALUES. More... | |
Definition in file ups.f.
REAL*8 function ups | ( | IVAL, | |
NODE | |||
) |
THIS FUNCTION UNPACKS A REAL*8 USER VALUE FROM A PACKED BUFR INTEGER BY APPLYING THE PROPER SCALE AND REFERENCE VALUES.
NORMALLY THE SCALE AND REFERENCE VALUES ARE OBTAINED FROM INDEX NODE OF THE INTERNAL JUMP/LINK TABLE ARRAYS ISC(*) AND IRF(*); HOWEVER, THE REFERENCE VALUE IN IRF(*) WILL BE OVERRIDDEN IF A 2-03 OPERATOR IS IN EFFECT FOR THIS NODE.
PROGRAM HISTORY LOG: 2012-03-02 J. ATOR – ORIGINAL AUTHOR; ADAPTED FROM INTERNAL STATEMENT FUNCTION IN OTHER SUBROUTINES 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS
USAGE: UPS (IVAL,NODE) INPUT ARGUMENT LIST: IVAL - INTEGER: PACKED BUFR INTEGER NODE - INTEGER: INDEX INTO INTERNAL JUMP/LINK TABLES
OUTPUT ARGUMENT LIST: UPS - REAL*8: USER VALUE
REMARKS: THIS ROUTINE CALLS: None THIS ROUTINE IS CALLED BY: RDCMPS RDTREE UFBGET UFBTAB UFBTAM Normally not called by any application programs.
Definition at line 31 of file ups.f.
Referenced by rdcmps(), rdtree(), ufbget(), ufbtab(), and ufbtam().