NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
iupb.f
Go to the documentation of this file.
1 C> @file
2 C> @author WOOLLEN @date 1994-01-06
3 
4 C> THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD
5 C> CONTAINED WITHIN NBIT BITS OF A BUFR MESSAGE PACKED INTO THE
6 C> INTEGER ARRAY MBAY, STARTING WITH THE FIRST BIT OF BYTE NBYT.
7 C>
8 C> PROGRAM HISTORY LOG:
9 C> 1994-01-06 J. WOOLLEN -- ORIGINAL AUTHOR
10 C> 2003-11-04 J. ATOR -- ADDED DOCUMENTATION
11 C> 2003-11-04 S. BENDER -- ADDED REMARKS/BUFRLIB ROUTINE
12 C> INTERDEPENDENCIES
13 C> 2003-11-04 D. KEYSER -- UNIFIED/PORTABLE FOR WRF; ADDED HISTORY
14 C> DOCUMENTATION
15 C>
16 C> USAGE: IUPB (MBAY, NBYT, NBIT)
17 C> INPUT ARGUMENT LIST:
18 C> MBAY - INTEGER: *-WORD PACKED BINARY ARRAY CONTAINING BUFR
19 C> MESSAGE
20 C> NBYT - INTEGER: BYTE WITHIN MBAY AT WHOSE FIRST BIT TO BEGIN
21 C> UNPACKING
22 C> NBIT - INTEGER: NUMBER OF BITS WITHIN MBAY TO BE UNPACKED
23 C>
24 C> OUTPUT ARGUMENT LIST:
25 C> IUPB - INTEGER: UNPACKED INTEGER WORD
26 C>
27 C> REMARKS:
28 C> THIS ROUTINE CALLS: UPB
29 C> THIS ROUTINE IS CALLED BY: CKTABA CPYUPD GETLENS IUPBS01
30 C> IUPBS3 MSGUPD MSGWRT RDMEMS
31 C> RTRCPTB STBFDX STNDRD STRCPT
32 C> UPDS3 WRDXTB WRITLC
33 C> Normally not called by any application
34 C> programs.
35 C>
36  FUNCTION iupb(MBAY,NBYT,NBIT)
37 
38 
39 
40  dimension mbay(*)
41 
42 C----------------------------------------------------------------------
43 C----------------------------------------------------------------------
44 
45  mbit = (nbyt-1)*8
46  CALL upb(iret,nbit,mbay,mbit)
47  iupb = iret
48  RETURN
49  END
subroutine upb(NVAL, NBITS, IBAY, IBIT)
THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER CONTAINED WITHIN NBITS BITS OF IBAY...
Definition: upb.f:49
function iupb(MBAY, NBYT, NBIT)
THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD CONTAINED WITHIN NBIT BITS OF A BUFR MESSAGE ...
Definition: iupb.f:36