]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/03/06 10:46:52 mclareni | |
6 | * Zebra | |
7 | * | |
8 | * | |
9 | #ifndef CERNLIB_ZEBRA_Q_ANDOR_INC | |
10 | #define CERNLIB_ZEBRA_Q_ANDOR_INC | |
11 | * | |
12 | * IAND / IOR / IEOR / NOT standard | |
13 | * | |
14 | * q_andor.inc | |
15 | * | |
16 | #if defined(CERNLIB_APOLLO) | |
17 | IAND (IZV,IZW) = AND (IZV, IZW) | |
18 | IOR (IZV,IZW) = OR (IZV, IZW) | |
19 | IEOR (IZV,IZW) = XOR (IZV, IZW) | |
20 | * NOT is standard on APOLLO | |
21 | ||
22 | #elif defined(CERNLIB_CDC) | |
23 | IAND (IZV,IZW) = IZV .AND. IZW | |
24 | IOR (IZV,IZW) = IZV .OR. IZW | |
25 | IEOR (IZV,IZW) = IZV .XOR. IZW | |
26 | NOT (IZW) = .NOT. IZW | |
27 | ||
28 | #elif defined(CERNLIB_MSDOS)&&defined(CERNLIB_QF_F2C) | |
29 | IAND(IZV,IZW) = AND(IZV,IZW) | |
30 | IOR(IZV,IZW) = OR(IZV,IZW) | |
31 | IEOR(IZV,IZW) = XOR(IZV,IZW) | |
32 | ||
33 | #elif defined(CERNLIB_QMIBMSI) | |
34 | IAND (IZV,IZW) = LAND (IZV, IZW) | |
35 | IOR (IZV,IZW) = LOR (IZV, IZW) | |
36 | IEOR (IZV,IZW) = LXOR (IZV, IZW) | |
37 | NOT (IZW) = LCOMPL (IZW) | |
38 | ||
39 | #elif defined(CERNLIB_LNX) | |
40 | IAND(IZV,IZW) = AND(IZV,IZW) | |
41 | IOR(IZV,IZW) = OR(IZV,IZW) | |
42 | IEOR(IZV,IZW) = XOR(IZV,IZW) | |
43 | ||
44 | #elif defined(CERNLIB_SUN) | |
45 | IAND (IZV,IZW) = AND (IZV, IZW) | |
46 | IOR (IZV,IZW) = OR (IZV, IZW) | |
47 | IEOR (IZV,IZW) = XOR (IZV, IZW) | |
48 | * NOT is standard on SUN | |
49 | ||
50 | #elif 1 | |
51 | * IAND / IOR / IEOR / NOT standard | |
52 | ||
53 | #endif | |
54 | ||
55 | #endif |