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

      SUBROUTINE IZBCDV (NP)

#include "zebra/zceta.inc"
#include "zebra/zkrakc.inc"

      DIMENSION    NP(9)

#include "zebra/q_shiftr.inc"

      N = NP(1)

      DO 29  JWH=1,N
      JV = ISHFTR (IQHOLK(JWH),24)
   29 IQCETK(JWH) = IQCETA(JV+1)
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	SUBROUTINE IZBCDV (NP)
	2
	3	#include "zebra/zceta.inc"
	4	#include "zebra/zkrakc.inc"
	5
	6	DIMENSION NP(9)
	7
	8	#include "zebra/q_shiftr.inc"
	9
	10	N = NP(1)
	11
	12	DO 29 JWH=1,N
	13	JV = ISHFTR (IQHOLK(JWH),24)
	14	29 IQCETK(JWH) = IQCETA(JV+1)
	15	RETURN
	16	END