*
* $Id: blo32wun.F,v 1.1.1.1 1996/03/08 15:22:00 mclareni Exp $
*
* $Log: blo32wun.F,v $
* Revision 1.1.1.1  1996/03/08 15:22:00  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_UNIVAC)
      SUBROUTINE BLO32W(SOURCE,N1,TARGET,N2,N3)
C.+++++++ UNIVAC VERSION ++++++++++
C. BLOWS (UNPACKS) 32 BIT WORDS INTO MACHINE WORDS.
C.
C. +++ IMPORTANT +++ COUNTS PARTLY IN 16 BIT WORDS
C.
C. INPUT
C. SOURCE    ARRAY CONTAINING 32 BIT WORDS IN PACKED FORM
C. N1        FIRST 16 BIT WORD IN SOURCE TO BLOW
C. TARGET    TARGET ARRAY FOR UNPACKED 32 BIT WORDS
C. N2        TARGET(N2) WILL CONTAIN FIRST UNPACKED WORD
C. N3        NO. OF 32 BIT WORDS TO UNPACK
      INTEGER SOURCE(2),TARGET(2)
      CALL BLOBYT(SOURCE,TARGET(N2),N3,32,16*(N1-1)+1)
      RETURN
      END
#endif