*
* $Id: blo8wcd.F,v 1.1.1.1 1996/03/08 15:21:52 mclareni Exp $
*
* $Log: blo8wcd.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:52  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_CDC)||defined(CERNLIB_UNIVAC)
      SUBROUTINE BLO8W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ CDC AND UNIVAC VERSION ++++++++++
C. BLOWS (UNPACKS) 8 BIT BYTES INTO MACHINE WORDS.
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 SOURCE(2),TARGET(2)
      CALL BLOBYT(SOURCE,TARGET(N2),N3,8,8*(N1-1)+1)
      RETURN
      END
#endif