*
* $Id: bun8wn16.F,v 1.1.1.1 1996/03/08 15:21:57 mclareni Exp $
*
* $Log: bun8wn16.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:57  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_ND100B16)
       SUBROUTINE BUN8W(SOURCE,N1,TARGET,N2,N3)
C      ++++++++NORD 10/100 VERSION+++++++++
C      VERSION 82-05-06
C      BUNCHES(PACKS) B BIT BYTES(RIGHT ADJUSTED ZERO FILLED)
C      INTO CONTIGUOS BIT STRING.
C
C.  INPUT
C   SOURCE   ARRAY CONTAINING 8 BIT BYTES IN UNPACKED FORM
C   N1       FIRST 8 BIT BYTE(RIGHT ADJUSTED IE FIRST WORD) IN SOURCE TO BE PACK
C   TARGET   TARGET ARRAY FOR PACKED BYTES
C   N2       FIRST 8 BIT BYTE IN TARGET TO PACK TO
C   N3       NO. OF BYTES TO BE PACKED
       INTEGER*2 N1,N2,N3
       INTEGER*2 SOURCE(2)
       INTEGER*2 TARGET(2)
       IF(N3.LE.0)RETURN
       I1=N1-1
       I2=N2-2
       DO FOR J=1,N3
       IBYTE=SOURCE(I1+J)
       CALL ZSBYT(IBYTE,TARGET,I2+J)
       ENDDO
       RETURN
       END
#endif