ipks.f File Reference

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

Go to the source code of this file.

Functions/Subroutines
integer(8) function	ipks (VAL, NODE)
	This function packs a real*8 user value into a BUFR integer by applying the proper scale and reference values. More...

Detailed Description

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

Author

J. Ator

Date

2012-03-02

Definition in file ipks.f.

Function/Subroutine Documentation

ipks()

integer(8) function ipks	(	real*8	VAL,
			NODE
	)

This function packs a real*8 user value into a 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.

Parameters

[in]	VAL	- real*8: user value
[in]	NODE	- integer: index into internal jump/link tables

Returns

- integer*8: packed BUFR integer

Remarks

• This function is the logical inverse of function ups().

Author

J. Ator

Date

2012-03-02

Definition at line 23 of file ipks.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.