*
* $Id: blo8wno.F,v 1.1.1.1 1996/03/08 15:21:59 mclareni Exp $
*
* $Log: blo8wno.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:59  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_ND100B32)
      SUBROUTINE BLO8W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ NORD 100 32-BIT VERSION ++++++++++
C. BLOWS (UNPACKS) 8 BIT BYTES INTO MACHINE WORDS(32 BIT).
C.
C. INPUT
C. SOURCE    ARRAY CONTAINING 8 BIT BYTES IN PACKED FORM
C. N1        FIRST 8 BIT BYTE IN SOURCE TO BLOW
C. TARGET    TARGET ARRAY FOR UNPACKED 8 BIT BYTES
C. N2        TARGET(N2) WILL CONTAIN FIRST UNPACKED WORD
C. N3        NO. OF 8 BIT BYTES TO UNPACK
      INTEGER*4 N1,N2,N3,ZERO
      INTEGER*4 SOURCE(2),TARGET(2)
      DATA ZERO/0/
      IF(N3.LE.ZERO)  GOTO 77777
      I1=N1-2
      I2=N2-1
      JMAX=N3
      DO 1  J=1,JMAX
    1 TARGET(I2+J)=JLBYT(SOURCE,I1+J)
77777 RETURN
      END
#endif