[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qutil / zhtoi.F

*
* $Id$
*
* $Log$
* Revision 1.3  1998/09/25 09:33:24  mclareni
* Modifications for the Mklinux port flagged by CERNLIB_PPC
*
* Revision 1.2  1996/09/23 12:20:37  cernlib
* add Linux
*
* Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
#if defined(CERNLIB_Z32)
#include "qutyz32/zhtoi.F"
#elif (defined(CERNLIB_VAXVMS))||(defined(CERNLIB_QMVMI)) \
    ||(defined(CERNLIB_QMDOS))||(defined(CERNLIB_TMO)) \
    ||((defined(CERNLIB_QMLNX) && !defined(CERNLIB_PPC)))
#include "qutyinv/zhtoi.F"
#elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_SINGLE))
#include "not_cern/qutycvx/zhtoi.F"
#elif defined(CERNLIB_CRAY)
#include "not_cern/qutycry/zhtoi.F"
#elif defined(CERNLIB_CDC)
#include "not_cern/qutycdc/zhtoi.F"
#elif defined(CERNLIB_PDP)
#include "not_cern/qutypdp/zhtoi.F"
#else
      SUBROUTINE ZHTOI (HOLL,INTV,NP)

C-    This is a slow stop-gap solution only  !!!

#include "zebra/zceta.inc"
C--------------    END CDE                             --------------
      COMMON /SLATE/ DUMMY(8), MM(4), MIM(4), DUMB(24)

      DIMENSION    HOLL(99), INTV(99), NP(9)
      DIMENSION    MPAK(2)
      DATA  MPAK   /6,4/


      N = NP(1)

      DO 39  JW=1,N
      CALL UBLOW  (HOLL(JW),MM(1),4)
      CALL IZHNUM (MM,MIM,4)
      INTW = 0

      MM(1) = IQTCET(MIM(1))

      DO 16  J=2,4
      MM(J) = IQTCET(MIM(J))
      IF (MM(J).EQ.45)  MM(J) = 0
   16 CONTINUE

      CALL PKBYT (MM(1),INTW,1,4,MPAK(1))
   39 INTV(JW) = INTW
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.3 1998/09/25 09:33:24 mclareni
	6	* Modifications for the Mklinux port flagged by CERNLIB_PPC
	7	*
	8	* Revision 1.2 1996/09/23 12:20:37 cernlib
	9	* add Linux
	10	*
	11	* Revision 1.1.1.1 1996/03/06 10:47:15 mclareni
	12	* Zebra
	13	*
	14	*
	15	#include "zebra/pilot.h"
	16	#if defined(CERNLIB_Z32)
	17	#include "qutyz32/zhtoi.F"
	18	#elif (defined(CERNLIB_VAXVMS))\|\|(defined(CERNLIB_QMVMI)) \
	19	\|\|(defined(CERNLIB_QMDOS))\|\|(defined(CERNLIB_TMO)) \
	20	\|\|((defined(CERNLIB_QMLNX) && !defined(CERNLIB_PPC)))
	21	#include "qutyinv/zhtoi.F"
	22	#elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_SINGLE))
	23	#include "not_cern/qutycvx/zhtoi.F"
	24	#elif defined(CERNLIB_CRAY)
	25	#include "not_cern/qutycry/zhtoi.F"
	26	#elif defined(CERNLIB_CDC)
	27	#include "not_cern/qutycdc/zhtoi.F"
	28	#elif defined(CERNLIB_PDP)
	29	#include "not_cern/qutypdp/zhtoi.F"
	30	#else
	31	SUBROUTINE ZHTOI (HOLL,INTV,NP)
	32
	33	C- This is a slow stop-gap solution only !!!
	34
	35	#include "zebra/zceta.inc"
	36	C-------------- END CDE --------------
	37	COMMON /SLATE/ DUMMY(8), MM(4), MIM(4), DUMB(24)
	38
	39	DIMENSION HOLL(99), INTV(99), NP(9)
	40	DIMENSION MPAK(2)
	41	DATA MPAK /6,4/
	42
	43
	44	N = NP(1)
	45
	46	DO 39 JW=1,N
	47	CALL UBLOW (HOLL(JW),MM(1),4)
	48	CALL IZHNUM (MM,MIM,4)
	49	INTW = 0
	50
	51	MM(1) = IQTCET(MIM(1))
	52
	53	DO 16 J=2,4
	54	MM(J) = IQTCET(MIM(J))
	55	IF (MM(J).EQ.45) MM(J) = 0
	56	16 CONTINUE
	57
	58	CALL PKBYT (MM(1),INTW,1,4,MPAK(1))
	59	39 INTV(JW) = INTW
	60	RETURN
	61	END
	62	* ==================================================
	63	#include "zebra/qcardl.inc"
	64	#endif