Transition to NewIO
[u/mrichter/AliRoot.git] / MICROCERN / kerngen / q_jbit.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.2.4.1  2002/11/26 16:50:55  hristov
6 * Merging NewIO with v3-09-04
7 *
8 * Revision 1.2  2002/10/14 14:57:11  hristov
9 * Merging the VirtualMC branch to the main development branch (HEAD)
10 *
11 * Revision 1.1.2.1  2002/07/11 17:14:49  alibrary
12 * Adding MICROCERN
13 *
14 * Revision 1.1.1.1  1999/05/18 15:55:29  fca
15 * AliRoot sources
16 *
17 * Revision 1.2  1997/02/04 17:35:39  mclareni
18 * Merge Winnt and 97a versions
19 *
20 * Revision 1.1.1.1.2.1  1997/01/21 11:30:29  mclareni
21 * All mods for Winnt 96a on winnt branch
22 *
23 * Revision 1.1.1.1  1996/02/15 17:49:19  mclareni
24 * Kernlib
25 *
26 *
27 *
28 * q_jbit.inc
29 *
30 #if defined(CERNLIB_QMLNX)
31       JBIT(IZW,IZP)     = AND(ISHFTR(IZW,IZP-1),1)
32       JBYT(IZW,IZP,NZB) = ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB)
33 #elif defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
34       JBIT (IZW,IZP)      = AND(RSHIFT(IZW,IZP-1),1)
35       JBYT (IZW,IZP,NZB) =  ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB)
36 #elif defined(CERNLIB_QMSUN)&&defined(CERNLIB_BUGLRSHFT)
37 #elif defined(CERNLIB_QMSUN)&&(!defined(CERNLIB_BUGLRSHFT))
38       JBIT (IZW,IZP)    = AND (lrshft(IZW,IZP-1), 1)
39       JBYT (IZW,IZP,NZB)= lrshft (LSHIFT(IZW,33-IZP-NZB),32-NZB)
40 #elif defined(CERNLIB_QMOS9)||defined(CERNLIB_QMHPX)
41       JBIT (IZW,IZP)     = IBITS (IZW,IZP-1,1)
42       JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
43 #elif defined(CERNLIB_QMDOS)&&(!defined(CERNLIB_QF_F2C)) || defined(CERNLIB_QFMSOFT)
44       JBIT (IZW,IZP)     =  IAND (ISHFT(IZW,1-IZP), 1)
45       JBYT (IZW,IZP,NZB) = ISHFT (ISHFT(IZW,33-IZP-NZB), -32+NZB)
46 #endif