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

      FUNCTION IZBCD (MCHAR)

#include "zebra/zceta.inc"

#include "zebra/q_shiftr.inc"

      JV = ISHFTR (MCHAR,24)
      IZBCD = IQCETA(JV+1)
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	FUNCTION IZBCD (MCHAR)
	2
	3	#include "zebra/zceta.inc"
	4
	5	#include "zebra/q_shiftr.inc"
	6
	7	JV = ISHFTR (MCHAR,24)
	8	IZBCD = IQCETA(JV+1)
	9	RETURN
	10	END