MINICERN/packlib/kernlib/kerngen/unix/sungs/iandetc.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:08  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION IAND (I,J)
  11 C
  12 C CERN PROGLIB# M441    IANDETC         .VERSION KERNSUN  1.00  880922
  13 C ORIG. 22/09/88, JZ
  14 C
  15 C     SUN versions of functions  IAND, IOR, IEOR
  16
  17       IAND = AND(I,J)
  18       END
  19       FUNCTION IOR (I,J)
  20
  21       IOR = OR(I,J)
  22       END
  23       FUNCTION IEOR (I,J)
  24
  25       IEOR = XOR(I,J)
  26       END