<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='IUPB'><A href='../../html_code/bufr/iupb.f.html#IUPB' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A>
FUNCTION IUPB(MBAY,NBYT,NBIT) 20,1
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: IUPB
C PRGMMR: WOOLLEN ORG: NP20 DATE: 1994-01-06
C
C ABSTRACT: THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD
C CONTAINED WITHIN NBIT BITS OF A BUFR MESSAGE PACKED INTO THE
C INTEGER ARRAY MBAY, STARTING WITH THE FIRST BIT OF BYTE NBYT.
C
C PROGRAM HISTORY LOG:
C 1994-01-06 J. WOOLLEN -- ORIGINAL AUTHOR
C 2003-11-04 J. ATOR -- ADDED DOCUMENTATION
C 2003-11-04 S. BENDER -- ADDED REMARKS/BUFRLIB ROUTINE
C INTERDEPENDENCIES
C 2003-11-04 D. KEYSER -- UNIFIED/PORTABLE FOR WRF; ADDED HISTORY
C DOCUMENTATION
C
C USAGE: IUPB (MBAY, NBYT, NBIT)
C INPUT ARGUMENT LIST:
C MBAY - INTEGER: *-WORD PACKED BINARY ARRAY CONTAINING BUFR
C MESSAGE
C NBYT - INTEGER: BYTE WITHIN MBAY AT WHOSE FIRST BIT TO BEGIN
C UNPACKING
C NBIT - INTEGER: NUMBER OF BITS WITHIN MBAY TO BE UNPACKED
C
C OUTPUT ARGUMENT LIST:
C IUPB - INTEGER: UNPACKED INTEGER WORD
C
C REMARKS:
C THIS ROUTINE CALLS: UPB
C THIS ROUTINE IS CALLED BY: CKTABA CPYUPD GETLENS IUPBS01
C IUPBS3 MSGUPD MSGWRT RDMEMS
C STNDRD STRCPT SUBUPD UPDS3
C WRITLC
C Normally not called by any application
C programs.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
DIMENSION MBAY(*)
C----------------------------------------------------------------------
C----------------------------------------------------------------------
MBIT = (NBYT-1)*8
CALL UPB
(IRET,NBIT,MBAY,MBIT)
IUPB = IRET
RETURN
END