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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:09  mclareni
* Zebra
*
*
*   unpack n-bit words to 32-bit
*
* fziphm42.inc
*
#if defined(CERNLIB_QMCDC)
      IF (IUPAKI.NE.0)             GO TO 44
      CALL UPKCH (LQ(LBUF),LQ(L4STAI),NW4IN,IPKVEC)
      GO TO 46
#elif defined(CERNLIB_QMCRY)
      IF (IUPAKI.NE.0)             GO TO 44
      CALL UNPACK (LQ(LBUF),32,LQ(L4STAI),NW4IN)
      GO TO 46
#elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
      IF (IUPAKI.NE.0)             GO TO 44
      CALL UPAK32 (LQ(LBUF),LQ(L4STAI),NW4IN)
      GO TO 46
#elif defined(CERNLIB_QMIBMD)
      IF (IUPAKI.NE.0)             GO TO 44
      CALL UPACK (LQ(LBUF),LQ(L4STAI),NW4IN)
      GO TO 46
#elif defined(CERNLIB_QMIRTD)
      IF (IUPAKI.NE.0)             GO TO 44
      CALL UPACK (LQ(LBUF),LQ(L4STAI),NW4IN)
      GO TO 46
#elif 1
      IF (IUPAKI.NE.0)             GO TO 44
      CALL VXINVC (LQ(LBUF),LQ(L4STAI),NW4IN)
      GO TO 46
#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	* fziphm42.inc
	12	*
	13	#if defined(CERNLIB_QMCDC)
	14	IF (IUPAKI.NE.0) GO TO 44
	15	CALL UPKCH (LQ(LBUF),LQ(L4STAI),NW4IN,IPKVEC)
	16	GO TO 46
	17	#elif defined(CERNLIB_QMCRY)
	18	IF (IUPAKI.NE.0) GO TO 44
	19	CALL UNPACK (LQ(LBUF),32,LQ(L4STAI),NW4IN)
	20	GO TO 46
	21	#elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
	22	IF (IUPAKI.NE.0) GO TO 44
	23	CALL UPAK32 (LQ(LBUF),LQ(L4STAI),NW4IN)
	24	GO TO 46
	25	#elif defined(CERNLIB_QMIBMD)
	26	IF (IUPAKI.NE.0) GO TO 44
	27	CALL UPACK (LQ(LBUF),LQ(L4STAI),NW4IN)
	28	GO TO 46
	29	#elif defined(CERNLIB_QMIRTD)
	30	IF (IUPAKI.NE.0) GO TO 44
	31	CALL UPACK (LQ(LBUF),LQ(L4STAI),NW4IN)
	32	GO TO 46
	33	#elif 1
	34	IF (IUPAKI.NE.0) GO TO 44
	35	CALL VXINVC (LQ(LBUF),LQ(L4STAI),NW4IN)
	36	GO TO 46
	37	#endif