]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1 1996/04/18 16:15:05 mclareni | |
6 | * Incorporate changes from J.Zoll for version 3.77 | |
7 | * | |
8 | * | |
9 | * | |
10 | #ifndef CERNLIB_ZEBRA_Q_AND_INC | |
11 | #define CERNLIB_ZEBRA_Q_AND_INC | |
12 | * | |
13 | * q_and.inc | |
14 | * | |
15 | #if defined(CERNLIB_APOLLO) | |
16 | IAND (IZV,IZW) = AND (IZV, IZW) | |
17 | ||
18 | #elif defined(CERNLIB_CDC) | |
19 | IAND (IZV,IZW) = IZV .AND. IZW | |
20 | ||
21 | #elif defined(CERNLIB_MSDOS)&&defined(CERNLIB_QF_F2C) | |
22 | IAND(IZV,IZW) = AND(IZV,IZW) | |
23 | ||
24 | #elif defined(CERNLIB_QMIBMSI) | |
25 | IAND (IZV,IZW) = LAND (IZV, IZW) | |
26 | ||
27 | #elif defined(CERNLIB_LNX) | |
28 | IAND(IZV,IZW) = AND(IZV,IZW) | |
29 | ||
30 | #elif defined(CERNLIB_SUN) | |
31 | IAND (IZV,IZW) = AND (IZV, IZW) | |
32 | ||
33 | #elif 1 | |
34 | ||
35 | #endif | |
36 | ||
37 | #endif |