ups.f File Reference

Unpack a real*8 value from an integer by applying the proper scale and reference values. More...

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...

Detailed Description

Unpack a real*8 value from an integer by applying the proper scale and reference values.

Author

J. Ator

Date

2012-03-02

Definition in file ups.f.

Function/Subroutine Documentation

ups()

real*8 function ups	(	integer*8	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.

This function is the logical inverse of function ipks().

Parameters

[in]	IVAL	- integer: packed BUFR integer.
[in]	NODE	- integer: index into internal jump/link tables.

Returns

UPS - real*8: user value.

Author

J. Ator

Date

2012-03-02

Definition at line 21 of file ups.f.

References moda_tables::ibt, moda_nrv203::ienrv, moda_nrv203::inodnrv, moda_tables::irf, moda_tables::isc, moda_nrv203::isnrv, moda_nrv203::nnrv, moda_nrv203::nrv, moda_tables::tag, and moda_nrv203::tagnrv.

Referenced by rdcmps(), rdtree(), ufbget(), ufbtab(), and ufbtam().