69 SUBROUTINE ufbget(LUNIT,TAB,I1,IRET,STR)
78 COMMON /usrstr/ nnod,ncon,nods(20),nodc(10),ivls(10),kons(10)
82 equivalence(cval,rval)
83 REAL*8 rval,tab(i1),
ups
86 mps(node) = 2**(ibt(node))-1
98 CALL
status(lunit,lun,il,im)
106 IF(nsub(lun).EQ.msub(lun))
THEN
121 mbit(n) = mbyt(lun)*8 + 16
124 10
DO n=n+1,nval(lun)
127 mbit(n) = mbit(n-1)+nbit(n-1)
128 IF(node.EQ.nods(nnod))
THEN
131 ELSEIF(itp(node).EQ.1)
THEN
132 CALL
upbb(ival,nbit(n),mbit(n),mbay(1,lun))
144 invn =
invwin(node,lun,1,nval(lun))
146 CALL
upbb(ival,nbit(invn),mbit(invn),mbay(1,lun))
147 IF(itp(node).EQ.1)
THEN
149 ELSEIF(itp(node).EQ.2)
THEN
150 IF(ival.LT.mps(node)) tab(i) =
ups(ival,node)
151 ELSEIF(itp(node).EQ.3)
THEN
154 CALL
upc(cval,nbit(invn)/8,mbay(1,lun),kbit,.true.)
166 900 CALL
bort(
'BUFRLIB: UFBGET - INPUT BUFR FILE IS CLOSED, IT MUST'//
167 .
' BE OPEN FOR INPUT')
168 901 CALL
bort(
'BUFRLIB: UFBGET - INPUT BUFR FILE IS OPEN FOR OUTPUT'//
169 .
', IT MUST BE OPEN FOR INPUT')
170 902 CALL
bort(
'BUFRLIB: UFBGET - A MESSAGE MUST BE OPEN IN INPUT '//
171 .
'BUFR FILE, NONE ARE')
subroutine upbb(NVAL, NBITS, IBIT, IBAY)
THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER CONTAINED WITHIN NBITS BITS OF IBAY...
subroutine usrtpl(LUN, INVN, NBMP)
THIS SUBROUTINE STORES THE SUBSET TEMPLATE INTO INTERNAL SUBSET ARRAYS IN MODULE USRINT FOR CASES OF ...
This module declares and initializes the BMISS variable.
subroutine upc(CHR, NCHR, IBAY, IBIT, CNVNULL)
THIS SUBROUTINE UNPACKS AND RETURNS A CHARACTER STRING OF LENGTH NCHR CONTAINED WITHIN NCHR BYTES OF ...
subroutine ufbget(LUNIT, TAB, I1, IRET, STR)
THIS SUBROUTINE UNPACKS AND RETURNS THE VALUES FOR ONE- DIMENSIONAL DESCRIPTORS IN THE INPUT STRING W...
subroutine string(STR, LUN, I1, IO)
THIS SUBROUTINE CHECKS TO SEE IF A USER-SPECIFIED CHARACTER STRING IS IN THE STRING CACHE (ARRAYS IN ...
This module contains array and variable declarations used to store the internal jump/link table...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
function invwin(NODE, LUN, INV1, INV2)
THIS FUNCTION LOOKS FOR A SPECIFIED NODE WITHIN THE PORTION OF THE CURRENT SUBSET BUFFER BOUNDED BY T...
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...