*
* $Id: bun32wcd.F,v 1.1.1.1 1996/03/08 15:21:52 mclareni Exp $
*
* $Log: bun32wcd.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 BUN32W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ CDC AND UNIVAC VERSION ++++++++++
C. BUNCHES (PACKS) 32 BIT WORDS (RIGHT ADJ., ZERO FILLED)
C. INTO A CONTIGUOUS BIT STRING.
C.
C. +++ IMPORTANT +++ COUNTS PARTLY IN 16 BIT WORDS
C.
C. INPUT
C. SOURCE    ARRAY CONTAINING 32 BIT WORDS IN UNPACKED FORM
C. N1        FIRST 32 BIT WORD IN SOURCE TO BE PACKED
C. TARGET    TARGET ARRAY FOR PACKED 32 BIT WORDS
C. N2        FIRST 16 BIT WORD IN TARGET TO PACK TO
C. N3        NO. OF 32 BIT WORDS TO PACK
      INTEGER SOURCE(2),TARGET(2)
      CALL BUNBYT(SOURCE(N1),TARGET,N3,32,16*(N2-1)+1)
      RETURN
      END
#endif