Warning, /include/zebra/q_and.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 1996/04/18 16:15:05 mclareni
0009 * Incorporate changes from J.Zoll for version 3.77
0010 *
0011 *
0012 *
0013 #ifndef CERNLIB_ZEBRA_Q_AND_INC
0014 #define CERNLIB_ZEBRA_Q_AND_INC
0015 *
0016 * q_and.inc
0017 *
0018 #if defined(CERNLIB_APOLLO)
0019 IAND (IZV,IZW) = AND (IZV, IZW)
0020
0021 #elif defined(CERNLIB_CDC)
0022 IAND (IZV,IZW) = IZV .AND. IZW
0023
0024 #elif defined(CERNLIB_MSDOS)&&defined(CERNLIB_QF_F2C)
0025 IAND(IZV,IZW) = AND(IZV,IZW)
0026
0027 #elif defined(CERNLIB_QMIBMSI)
0028 IAND (IZV,IZW) = LAND (IZV, IZW)
0029
0030 #elif defined(CERNLIB_LNX) && (!defined(CERNLIB_GFORTRAN))
0031 IAND(IZV,IZW) = AND(IZV,IZW)
0032
0033 #elif defined(CERNLIB_SUN)
0034 IAND (IZV,IZW) = AND (IZV, IZW)
0035
0036 #elif 1
0037
0038 #endif
0039
0040 #endif
