]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.2 1996/04/18 16:15:06 mclareni | |
6 | * Incorporate changes from J.Zoll for version 3.77 | |
7 | * | |
8 | * Revision 1.1.1.1 1996/03/06 10:46:52 mclareni | |
9 | * Zebra | |
10 | * | |
11 | * | |
12 | #ifndef CERNLIB_ZEBRA_Q_JBIT_INC | |
13 | #define CERNLIB_ZEBRA_Q_JBIT_INC | |
14 | * | |
15 | * | |
16 | * q_jbit.inc | |
17 | * | |
18 | #if defined(CERNLIB_ALLIANT) | |
19 | JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1) | |
20 | ||
21 | #elif defined(CERNLIB_APOLLO) | |
22 | JBIT (IZW,IZP) = AND (RSHFT(IZW,IZP-1), 1) | |
23 | ||
24 | #elif defined(CERNLIB_CDC) | |
25 | JBIT (IZW,IZP) = SHIFT(IZW,61-IZP) .AND. .NOT.MASK(59) | |
26 | ||
27 | #elif defined(CERNLIB_CRAY) | |
28 | JBIT (IZW,IZP) = SHIFTR(IZW,IZP-1) .AND. MASK(127) | |
29 | ||
30 | #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE)) | |
31 | JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1) | |
32 | ||
33 | #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE)) | |
34 | JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1) | |
35 | ||
36 | #elif defined(CERNLIB_MSDOS) | |
37 | ||
38 | #if defined(CERNLIB_QF_NDP) | |
39 | JBIT (IZZW,IZZP) = IBITS (IZZW,IZZP-1,1) | |
40 | #elif defined(CERNLIB_QF_F2C) | |
41 | JBIT (IZW,IZP) = AND(RSHIFT(IZW,IZP-1),1) | |
42 | #endif | |
43 | ||
44 | #elif defined(CERNLIB_HPUX) | |
45 | JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1) | |
46 | ||
47 | #elif defined(CERNLIB_QF_SIEM) | |
48 | JBIT (IZW,IZP) = SHFTR (SHFTL(IZW,32-IZP), 31) | |
49 | ||
50 | #elif defined(CERNLIB_LINUX) | |
51 | JBIT(IZW,IZP) = AND(ISHFTR(IZW,IZP-1),1) | |
52 | ||
53 | #elif defined(CERNLIB_OS9) | |
54 | JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1) | |
55 | ||
56 | #elif defined(CERNLIB_PDP) | |
57 | JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1) | |
58 | ||
59 | #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT)) | |
60 | JBIT (IZW,IZP) = AND (lrshft(IZW,IZP-1), 1) | |
61 | ||
62 | #elif defined(CERNLIB_QMUNO) | |
63 | JBIT (IZW,IZP) = BITS (IZW,37-IZP,1) | |
64 | ||
65 | #elif defined(CERNLIB_QMVDS) | |
66 | JBIT (IZW,IZP) = JBYT (IZW,IZP,1) | |
67 | ||
68 | #elif defined(CERNLIB_VAXVMS) | |
69 | ||
70 | #elif 1 | |
71 | JBIT (IZW,IZP) = IAND (ISHFT(IZW,1-IZP), 1) | |
72 | ||
73 | #endif | |
74 | ||
75 | #endif |