iupb.f

Go to the documentation of this file.

C> @file
C> @brief Decode an integer value from an integer array.
C>
C> @author J. Woollen @date 1994-01-06
 
C> Decode an integer value from an integer array.
C>
C> This function decodes an integer value from within a specified
C> number of bits of an integer array, starting with the first
C> bit of a specified byte of the array.
C>
C> @param[in] MBAY - integer(*): Array containing encoded value.
C> @param[in] NBYT - integer: Byte within MBAY at whose first
C> bit to begin decoding.
C> @param[in] NBIT - integer: Number of bits to be decoded.
C>
C> @returns - integer: Decoded value
C>
C> @author J. Woollen @date 1994-01-06
      RECURSIVE FUNCTION iupb(MBAY,NBYT,NBIT) RESULT(IRET)
 
      USE modv_im8b
 
      dimension mbay(*)
 
C----------------------------------------------------------------------
C----------------------------------------------------------------------
 
C     Check for I8 integers.
 
      IF(im8b) THEN
         im8b=.false.
 
         CALL x84(nbyt,my_nbyt,1)
         CALL x84(nbit,my_nbit,1)
         iret = iupb(mbay,my_nbyt,my_nbit)
 
         im8b=.true.
         RETURN
      ENDIF
 
      mbit = (nbyt-1)*8
      CALL upb(iret,nbit,mbay,mbit)
 
      RETURN
      END