]> git.uio.no Git - u/mrichter/AliRoot.git/blob - MINICERN/packlib/zebra/qutil/qutyinv/izbcd.F
git://git.uio.no / u / mrichter / AliRoot.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qutil / qutyinv / izbcd.F
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