c*************************************************************************
c*                                                                       *
c*  INTERPROCESSOR COLLECTIVE COMMUNICATIONS LIBRARY                     *
c*  (InterCom)                                                           *
c*                                                                       *
c*  This library is funded by a grant from the Intel Research Council    *
c*  Intel Supercomputer Systems Division and the University of Texas     *
c*  Center for High Performance Computing                                *
c*                                                                       *
c*  Satya Gupta          -- Intel Corporation SSD division               *
c*  David G. Payne       -- Intel Corporation SSD division               *
c*  Lance Shuler         -- Sandia National Laboratories                 *
c*  Robert van de Geijn  -- University of Texas at Austin                *
c*  Jerrell Watts        -- California Institute of Technology           *
c*                                                                       *
c*************************************************************************/
c*
c* GROUP BETA RELEASE 0.0.1
c*
c
c  Version 1-24-95 -- Lance Shuler 
c
c  This is the iCC FORTRAN include file which is necessary
c  for group operations.
c
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c.....Global parameters
      INTEGER iCC_G_UNDEFINED
      PARAMETER (iCC_G_UNDEFINED = (-32766))
      INTEGER iCC_G_IDENT,iCC_G_CONGRUENT,iCC_G_SIMILAR,
     >        iCC_G_UNEQUAL
      PARAMETER (iCC_G_IDENT=0, iCC_G_CONGRUENT=1, iCC_G_SIMILAR=2,
     >           iCC_G_UNEQUAL=3)
c
c
c.....Predefined groups and communicators
      INTEGER iCC_G_GROUP_EMPTY
      INTEGER iCC_G_GROUP_NULL
      PARAMETER (iCC_G_GROUP_NULL = 0)

      INTEGER iCC_G_COMM_WORLD
      INTEGER iCC_G_COMM_SELF
      INTEGER iCC_G_COMM_NULL
      PARAMETER (iCC_G_COMM_NULL = 0)
c
      PARAMETER (TRUE = 1,FALSE = 0,YES = 1,NO = 0)
      PARAMETER (NULL = 0, iCC_G_DATATYPE_NULL = 0)
c
c.....Predefined Datatypes
      INTEGER iCC_G_INTEGER, iCC_G_REAL, iCC_G_DOUBLE_PRECISION,
     >        iCC_G_LOGICAL, iCC_G_CHARACTER, iCC_G_BYTE
c
c.....Predefined operator functions
      INTEGER iCC_G_DMAX,  iCC_G_IMAX,  iCC_G_SMAX,
     >        iCC_G_DMIN,  iCC_G_IMIN,  iCC_G_SMIN,
     >        iCC_G_DSUM,  iCC_G_ISUM,  iCC_G_SSUM,
     >        iCC_G_DPROD, iCC_G_IPROD, iCC_G_SPROD,
     >        iCC_G_LAND,  iCC_G_BAND,
     >        iCC_G_LOR,   iCC_G_BOR
c
c.....Common block to hold this data
      COMMON /iCCgroupdefs/ iCC_G_INTEGER, iCC_G_REAL, 
     >  iCC_G_DOUBLE_PRECISION, 
     >  iCC_G_LOGICAL, iCC_G_CHARACTER, iCC_G_BYTE,
     >  iCC_G_DSUM, iCC_G_SSUM, iCC_G_ISUM,
     >  iCC_G_DPROD, iCC_G_SPROD, iCC_G_IPROD,
     >  iCC_G_DMAX, iCC_G_DMIN, iCC_G_IMAX, iCC_G_IMIN, 
     >  iCC_G_SMAX, iCC_G_SMIN, iCC_G_LAND, iCC_G_BAND, iCC_G_LOR, 
     >  iCC_G_BOR, iCC_G_GROUP_EMPTY, iCC_G_COMM_WORLD, iCC_G_COMM_SELF