*
* $Id: blo16n16.F,v 1.1.1.1 1996/03/08 15:21:57 mclareni Exp $
*
* $Log: blo16n16.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:57  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_ND100B16)
      SUBROUTINE BLO16W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ NORD 10/100 VERSION ++++++++++
C. BLOWS (UNPACKS) 16 BIT WORDS INTO MACHINE WORDS
C. N10/100 : COPY WITH NO OVERLAP
C.
C. INPUT
C. SOURCE    ARRAY CONTAINING 16 BIT WORDS IN PACKED FORM
C. N1        FIRST 16 BIT WORD IN SOURCE TO BLOW
C. TARGET    TARGET ARRAY FOR UNPACKED 16 BIT WORDS
C. N2        TARGET(N2) WILL CONTAIN FIRST UNPACKED WORD
C. N3        NO. OF 16 BIT WORDS TO UNPACK
      INTEGER*2 N1,N2,N3,TARGET(2),ZERO
      INTEGER*2 SOURCE(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