]> git.uio.no Git - u/mrichter/AliRoot.git/blob - MINICERN/packlib/zebra/qutil/qutyz32/izbcd.F
git://git.uio.no / u / mrichter / AliRoot.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qutil / qutyz32 / izbcd.F
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