67 equivalence(cval,rval)
74 mps(node) = 2**(ibt(node))-1
94 CALL
upbb(ival(n),nbit(n),mbit(n),mbay(1,lun))
103 IF(itp(node).EQ.1)
THEN
108 ELSEIF(itp(node).EQ.2)
THEN
112 IF (ival(n).LT.mps(node))
THEN
113 val(n,lun) =
ups(ival(n),node)
117 ELSEIF(itp(node).EQ.3)
THEN
127 nbt = min(8,nbit(n)/8)
128 CALL
upc(cval,nbt,mbay(1,lun),kbit,.true.)
129 IF (nbit(n).LE.64 .AND.
icbfms(cval,nbt).NE.0)
THEN
137 ibit = nbit(nval(lun))+mbit(nval(lun))
subroutine upbb(NVAL, NBITS, IBIT, IBAY)
THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER CONTAINED WITHIN NBITS BITS OF IBAY...
INTEGER function icbfms(STR, LSTR)
This function provides a handy way to check whether a character string returned from a previous call ...
This module declares and initializes the BMISS variable.
subroutine rcstpl(LUN, IRET)
THIS SUBROUTINE STORES THE SUBSET TEMPLATE INTO INTERNAL SUBSET ARRAYS IN MODULES USRINT AND USRBIT...
subroutine upc(CHR, NCHR, IBAY, IBIT, CNVNULL)
THIS SUBROUTINE UNPACKS AND RETURNS A CHARACTER STRING OF LENGTH NCHR CONTAINED WITHIN NCHR BYTES OF ...
subroutine rdtree(LUN, IRET)
THIS SUBROUTINE UNPACKS THE NEXT SUBSET FROM THE INTERNAL UNCOMPRESSED MESSAGE BUFFER (ARRAY MBAY IN ...
This module contains array and variable declarations used to store the internal jump/link table...
This module contains array and variable declarations used to store BUFR messages internally for multi...
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...