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