5 * Revision 1.1.1.1 1996/03/06 10:46:52 mclareni
9 #ifndef CERNLIB_ZEBRA_Q_ANDOR_INC
10 #define CERNLIB_ZEBRA_Q_ANDOR_INC
12 * IAND / IOR / IEOR / NOT standard
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
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
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)
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)
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)
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
51 * IAND / IOR / IEOR / NOT standard