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

      FUNCTION IZBCD (MCHAR)

#include "zebra/zceta.inc"

#include "zebra/q_and.inc"

      JV = IAND (MCHAR,255)
      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_and.inc"
	6
	7	JV = IAND (MCHAR,255)
	8	IZBCD = IQCETA(JV+1)
	9	RETURN
	10	END