[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / fq / fziphr42.inc

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:09  mclareni
* Zebra
*
*
*   unpack n-bit words to 32-bit
*
* fziphr42.inc
*
#if defined(CERNLIB_QMCDC)
   42 CALL UPKCH (LQ(LIN),LQ(L4STAI),NW4USE,IPKVEC)
#elif defined(CERNLIB_QMCRY)
   42 CALL UNPACK (LQ(LIN),32,LQ(L4STAI),NW4USE)
#elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
   42 CALL UPAK32 (LQ(LIN),LQ(L4STAI),NW4USE)
#elif defined(CERNLIB_QMIBMD)
   42 CALL UPACK (LQ(LIN),LQ(L4STAI),NW4USE)
#elif defined(CERNLIB_QMIRTD)
   42 CALL UPACK (LQ(LIN),LQ(L4STAI),NW4USE)
#elif 1
      NSWDON = 0
   42 CALL VXINVB (LQ(LIN+NSWDON),NW4USE-NSWDON)
      NSWDON = NW4USE
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:47:09 mclareni
	6	* Zebra
	7	*
	8	*
	9	* unpack n-bit words to 32-bit
	10	*
	11	* fziphr42.inc
	12	*
	13	#if defined(CERNLIB_QMCDC)
	14	42 CALL UPKCH (LQ(LIN),LQ(L4STAI),NW4USE,IPKVEC)
	15	#elif defined(CERNLIB_QMCRY)
	16	42 CALL UNPACK (LQ(LIN),32,LQ(L4STAI),NW4USE)
	17	#elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
	18	42 CALL UPAK32 (LQ(LIN),LQ(L4STAI),NW4USE)
	19	#elif defined(CERNLIB_QMIBMD)
	20	42 CALL UPACK (LQ(LIN),LQ(L4STAI),NW4USE)
	21	#elif defined(CERNLIB_QMIRTD)
	22	42 CALL UPACK (LQ(LIN),LQ(L4STAI),NW4USE)
	23	#elif 1
	24	NSWDON = 0
	25	42 CALL VXINVB (LQ(LIN+NSWDON),NW4USE-NSWDON)
	26	NSWDON = NW4USE
	27	#endif