*
* $Id: bun8wib.F,v 1.1.1.1 1996/03/08 15:21:49 mclareni Exp $
*
* $Log: bun8wib.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:49  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_IBM)||defined(CERNLIB_VAX)||defined(CERNLIB_APOLLO)
      SUBROUTINE BUN8W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ IBM, VAX AND APOLLO VERSION ++++++++++
C. BUNCHES (PACKS) 8 BIT BYTES (RIGHT ADJ., ZERO FILLED)
C. INTO A CONTIGUOUS BIT STRING.
C.
C. FOR VAX THIS ROUTINE SHOULD BE COMPILED WITH NOCHECK
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),ITEMP
#if defined(CERNLIB_IBM)||defined(CERNLIB_VAX)
      LOGICAL*1 TARGET(2),LTEMP(4)
#endif
#if defined(CERNLIB_APOLLO)
      CHARACTER*1 TARGET(2),LTEMP(4)
#endif
      EQUIVALENCE (ITEMP,LTEMP(1))
      IF(N3.LE.0)  GOTO 77777
      I1=N1-1
      I2=N2-1
      DO 1  I=1,N3
      ITEMP= SOURCE(I1+I)
#if defined(CERNLIB_VAX)
    1 TARGET(I2+I)=LTEMP(1)
#endif
#if !defined(CERNLIB_VAX)
    1 TARGET(I2+I)=LTEMP(4)
#endif
77777 RETURN
      END
#endif