mvb.f

Go to the documentation of this file.

C> @file
C> @brief Copy a specified number of bytes from
C> one packed binary array to another.
C>
C> @author Woollen @date 1994-01-06
 
C> This subroutine copies a specified number of bytes from
C> one packed binary array to another.
C>
C> @param[in] IB1 - integer: packed input binary array.
C> @param[in] NB1 - integer: pointer to first byte in IB1 to copy from.
C> @param[out] IB2 - integer: packed output binary array.
C> @param[in] NB2 - integer: pointer to first byte in IB2 to copy to.
C> @param[in] NBM - integer: number of bytes to copy.
C>
C> @author Woollen @date 1994-01-06
      SUBROUTINE mvb(IB1,NB1,IB2,NB2,NBM)
 
      dimension     ib1(*),ib2(*)
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
      jb1 = 8*(nb1-1)
      jb2 = 8*(nb2-1)
 
      DO n=1,nbm
        CALL upb(nval,8,ib1,jb1)
        CALL pkb(nval,8,ib2,jb2)
      ENDDO
 
C  EXITS
C  -----
 
      RETURN
      END