*
* $Id: blo16wap.F,v 1.1.1.1 1996/03/08 15:21:50 mclareni Exp $
*
* $Log: blo16wap.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:50  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_APOLLO)
      SUBROUTINE BLO16W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ APOLLO VERSION ++++++++++
C. BLOWS (UNPACKS) 16 BIT WORDS INTO MACHINE WORDS(32 BIT).
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 SOURCE(2),IW2(2)
      INTEGER   TARGET(2)
      EQUIVALENCE (IW2(1),IW4)
      IF(N3.LE.0)  GOTO 77777
      I1=N1-1
      I2=N2-1
      IW4=0
      DO 1  I=1,N3
      IW2(2)=SOURCE(I1+I)
    1 TARGET(I2+I)=IW4
77777 RETURN
      END
#endif