*
* $Id: bun16n16.F,v 1.1.1.1 1996/03/08 15:21:57 mclareni Exp $
*
* $Log: bun16n16.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:57  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_ND100B16)
      SUBROUTINE BUN16W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ NORD 10/100 16-BIT VERSION ++++++++++
C. BUNCHES (PACKS) 16 BIT WORDS (RIGHT ADJ., ZERO FILLED)
C. INTO A CONTIGUOUS BIT STRING.
C.  COPY WITH NO OVERLAP !
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*2 N1,N2,N3,SOURCE(2),ZERO
      INTEGER*2 TARGET(2)
      DATA ZERO/0/
      IF(N3.LE.ZERO)  GOTO 77777
      I1=N1-1
      I2=N2-1
      DO 1  I=1,N3
    1 TARGET(I2+I)=SOURCE(I1+I)
77777 RETURN
      END
#endif