30 INTEGER FUNCTION ipks(VAL,NODE)
41 ipks = nint( val * ten**(isc(node)) ) - irf(node)
43 IF ( nnrv .GT. 0 )
THEN
49 IF ( node .EQ. inodnrv(jj) )
THEN
56 IF ( nrv(jj) .LT. 0 )
THEN
57 imask = 2**(ibt(node)-1)
58 ipks = ior(iabs(nrv(jj)),imask)
63 ELSE IF ( ( tag(node)(1:8) .EQ. tagnrv(jj) ) .AND.
64 . ( node .GE. isnrv(jj) ) .AND.
65 . ( node .LE. ienrv(jj) ) )
THEN
70 ipks = nint( val * ten**(isc(node)) ) - nrv(jj)
This module contains array and variable declarations for use with any 2-03-YYY (change reference valu...
INTEGER function ipks(VAL, NODE)
THIS FUNCTION PACKS A REAL*8 USER VALUE INTO A BUFR INTEGER BY APPLYING THE PROPER SCALE AND REFERENC...
This module contains array and variable declarations used to store the internal jump/link table...