MINICERN/packlib/zebra/zebra/q_andor.inc

   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