*
* $Id: bun8wcd.F,v 1.1.1.1 1996/03/08 15:21:52 mclareni Exp $
*
* $Log: bun8wcd.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:52  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_CDC)||defined(CERNLIB_UNIVAC)
      SUBROUTINE BUN8W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ CDC AND UNIVAC VERSION ++++++++++
C. BUNCHES (PACKS) 8 BIT BYTES (RIGHT ADJ., ZERO FILLED)
C. INTO A CONTIGUOUS BIT STRING.
C.
C. INPUT
C. SOURCE    ARRAY CONTAINING 8 BIT BYTES IN UNPACKED FORM
C. N1        FIRST 8 BIT BYTE IN SOURCE TO BE PACKED
C. TARGET    TARGET ARRAY FOR PACKED 8 BIT BYTES
C. N2        FIRST 8 BIT BYTE IN TARGET TO PACK TO
C. N3        NO. OF 8 BIT BYTES TO PACK
      INTEGER SOURCE(2),TARGET(2)
      CALL BUNBYT(SOURCE(N1),TARGET,N3,8,8*(N2-1)+1)
      RETURN
      END
#endif