Warning, /include/zebra/q_andor.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 2006/09/15 09:35:33 mclareni
0006 * Submitted mods for gcc4/gfortran and MacOSX, corrected to work also on slc4 with gcc3.4 and 4.1
0007 *
0008 * Revision 1.1.1.1 1996/03/06 10:46:52 mclareni
0009 * Zebra
0010 *
0011 *
0012 #ifndef CERNLIB_ZEBRA_Q_ANDOR_INC
0013 #define CERNLIB_ZEBRA_Q_ANDOR_INC
0014 *
0015 * IAND / IOR / IEOR / NOT standard
0016 *
0017 * q_andor.inc
0018 *
0019 #if defined(CERNLIB_APOLLO)
0020 IAND (IZV,IZW) = AND (IZV, IZW)
0021 IOR (IZV,IZW) = OR (IZV, IZW)
0022 IEOR (IZV,IZW) = XOR (IZV, IZW)
0023 * NOT is standard on APOLLO
0024
0025 #elif defined(CERNLIB_CDC)
0026 IAND (IZV,IZW) = IZV .AND. IZW
0027 IOR (IZV,IZW) = IZV .OR. IZW
0028 IEOR (IZV,IZW) = IZV .XOR. IZW
0029 NOT (IZW) = .NOT. IZW
0030
0031 #elif defined(CERNLIB_MSDOS)&&defined(CERNLIB_QF_F2C)
0032 IAND(IZV,IZW) = AND(IZV,IZW)
0033 IOR(IZV,IZW) = OR(IZV,IZW)
0034 IEOR(IZV,IZW) = XOR(IZV,IZW)
0035
0036 #elif defined(CERNLIB_QMIBMSI)
0037 IAND (IZV,IZW) = LAND (IZV, IZW)
0038 IOR (IZV,IZW) = LOR (IZV, IZW)
0039 IEOR (IZV,IZW) = LXOR (IZV, IZW)
0040 NOT (IZW) = LCOMPL (IZW)
0041
0042 #elif defined(CERNLIB_LNX) && (!defined(CERNLIB_GFORTRAN))
0043 IAND(IZV,IZW) = AND(IZV,IZW)
0044 IOR(IZV,IZW) = OR(IZV,IZW)
0045 IEOR(IZV,IZW) = XOR(IZV,IZW)
0046
0047 #elif defined(CERNLIB_SUN)
0048 IAND (IZV,IZW) = AND (IZV, IZW)
0049 IOR (IZV,IZW) = OR (IZV, IZW)
0050 IEOR (IZV,IZW) = XOR (IZV, IZW)
0051 * NOT is standard on SUN
0052
0053 #elif 1
0054 * IAND / IOR / IEOR / NOT standard
0055
0056 #endif
0057
0058 #endif
