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

      SUBROUTINE ZITOH (INTV,HOLL,NP)

#include "zebra/zbcd.inc"
C--------------    END CDE                             --------------
      INTEGER      INTV(99), HOLL(99)

#include "zebra/q_and.inc"
#include "zebra/q_or.inc"

      DO 39  JWH=1,NP
      INTW = INTV(JWH)
      MWH  = 0

      DO 29  JL=1,4
      MWH  = ISHFT (MWH,-8)
      JV   = IAND (INTW,63)
      MWH  = IOR (MWH, ISHFT(NQHOLL(JV),24))
   29 INTW = ISHFT (INTW,-6)

   39 HOLL(JWH) = MWH
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	SUBROUTINE ZITOH (INTV,HOLL,NP)
	2
	3	#include "zebra/zbcd.inc"
	4	C-------------- END CDE --------------
	5	INTEGER INTV(99), HOLL(99)
	6
	7	#include "zebra/q_and.inc"
	8	#include "zebra/q_or.inc"
	9
	10	DO 39 JWH=1,NP
	11	INTW = INTV(JWH)
	12	MWH = 0
	13
	14	DO 29 JL=1,4
	15	MWH = ISHFT (MWH,-8)
	16	JV = IAND (INTW,63)
	17	MWH = IOR (MWH, ISHFT(NQHOLL(JV),24))
	18	29 INTW = ISHFT (INTW,-6)
	19
	20	39 HOLL(JWH) = MWH
	21	RETURN
	22	END