*
* $Id: bun8wno.F,v 1.1.1.1 1996/03/08 15:21:59 mclareni Exp $
*
* $Log: bun8wno.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:59  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_ND100B32)
      SUBROUTINE BUN8W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ NORD 100 32-BIT VERSION+++++++
C. BUNCHES (PACKS) 8 BIT BYTES (RIGHT ADJ., ZERO FILLED)
C. INTO A CONTIGUOUS BIT STRING.
C.
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*4 N1,N2,N3,ZERO
       INTEGER*4 SOURCE(2),TARGET(2)
       DATA ZERO/0/
       IF(N3.LE.ZERO)GO TO 77777
       I1=N1-1
       I2=N2-2
       JMAX=N3
       DO 1 J=1,JMAX
       IBYTE=SOURCE(I1+J)
 1     CALL ZSBYT(IBYTE,TARGET,I2+J)
77777 RETURN
      END
#endif