*
* $Id: bun16wib.F,v 1.1.1.1 1996/03/08 15:21:49 mclareni Exp $
*
* $Log: bun16wib.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 BUN16W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ IBM, VAX AND APOLLO VERSION ++++++++++
C. BUNCHES (PACKS) 16 BIT WORDS (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 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)
      INTEGER*2 TARGET(2)
      IF(N3.LE.0)  GOTO 77777
      I1=N1-1
      I2=N2-1
      DO 1  I=1,N3
    1 TARGET(I2+I)=SOURCE(I1+I)
77777 RETURN
      END
#endif