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