NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
upb.f
Go to the documentation of this file.
1 C> @file
2 C> @author WOOLLEN @date 1994-01-06
3 
4 C> THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER
5 C> CONTAINED WITHIN NBITS BITS OF IBAY, STARTING WITH BIT (IBIT+1).
6 C> ON OUTPUT, IBIT IS UPDATED TO POINT TO THE LAST BIT THAT WAS
7 C> UNPACKED. THIS IS SIMILAR TO BUFR ARCHIVE LIBRARY SUBROUTINE UPBB,
8 C> EXCEPT IN UPBB IBIT IS NOT UPDATED UPON OUTPUT (AND THE ORDER OF
9 C> ARGUMENTS IS DIFFERENT).
10 C>
11 C> PROGRAM HISTORY LOG:
12 C> 1994-01-06 J. WOOLLEN -- ORIGINAL AUTHOR
13 C> 2003-05-19 J. ATOR -- ADDED CHECK FOR NBITS EQUAL TO ZERO
14 C> 2003-11-04 J. ATOR -- ADDED DOCUMENTATION
15 C> 2003-11-04 J. WOOLLEN -- BIG-ENDIAN/LITTLE-ENDIAN INDEPENDENT (WAS
16 C> IN DECODER VERSION)
17 C> 2003-11-04 S. BENDER -- ADDED REMARKS/BUFRLIB ROUTINE
18 C> INTERDEPENDENCIES
19 C> 2003-11-04 D. KEYSER -- UNIFIED/PORTABLE FOR WRF; ADDED HISTORY
20 C> DOCUMENTATION
21 C> 2009-03-23 J. ATOR -- REWROTE TO CALL UPBB
22 C>
23 C> USAGE: CALL UPB (NVAL, NBITS, IBAY, IBIT)
24 C> INPUT ARGUMENT LIST:
25 C> NBITS - INTEGER: NUMBER OF BITS OF IBAY WITHIN WHICH TO UNPACK
26 C> NVAL
27 C> IBAY - INTEGER: *-WORD PACKED BINARY ARRAY CONTAINING PACKED
28 C> NVAL
29 C> IBIT - INTEGER: BIT POINTER WITHIN IBAY INDICATING BIT AFTER
30 C> WHICH TO START UNPACKING
31 C>
32 C> OUTPUT ARGUMENT LIST:
33 C> NVAL - INTEGER: UNPACKED INTEGER
34 C> IBIT - INTEGER: BIT POINTER WITHIN IBAY INDICATING LAST BIT
35 C> THAT WAS UNPACKED
36 C>
37 C> REMARKS:
38 C> THIS SUBROUTINE IS THE INVERSE OF BUFR ARCHIVE LIBRARY ROUTINE
39 C> PKB.
40 C>
41 C> THIS ROUTINE CALLS: UPBB
42 C> THIS ROUTINE IS CALLED BY: COPYSB IUPB MVB RDCMPS
43 C> RDMGSB READSB STNDRD UFBINX
44 C> UFBPOS UFBTAB UFBTAM UPC
45 C> WRCMPS WRITLC
46 C> Normally not called by any application
47 C> programs.
48 C>
49  SUBROUTINE upb(NVAL,NBITS,IBAY,IBIT)
50 
51 
52 
53  dimension ibay(*)
54 
55 C----------------------------------------------------------------------
56 C----------------------------------------------------------------------
57 
58  CALL upbb(nval,nbits,ibit,ibay)
59 
60  ibit = ibit+nbits
61 
62  RETURN
63  END
subroutine upbb(NVAL, NBITS, IBIT, IBAY)
THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER CONTAINED WITHIN NBITS BITS OF IBAY...
Definition: upbb.f:42
subroutine upb(NVAL, NBITS, IBAY, IBIT)
THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER CONTAINED WITHIN NBITS BITS OF IBAY...
Definition: upb.f:49