tc_cCsameF77.c File Reference

#include <mpi.h>

Go to the source code of this file.

Functions
int	Ccommcheck (int F77World, int f77comm)
int	CCOMMCHECK (int *F77World, int *f77comm)
int	ccommcheck_ (int *F77World, int *f77comm)
int	ccommcheck (int *F77World, int *f77comm)

Function Documentation

CCOMMCHECK()

int CCOMMCHECK	(	int *	F77World,
		int *	f77comm )

Definition at line 27 of file tc_cCsameF77.c.

{
   return(Ccommcheck(*F77World, *f77comm));
}

Ccommcheck()

int Ccommcheck	(	int	F77World,
		int	f77comm )

Definition at line 3 of file tc_cCsameF77.c.

{
   int Np, Iam, i, OK=1;
 
   if (sizeof(int) != sizeof(MPI_Comm)) OK=0;
   else if ((MPI_Comm) F77World != MPI_COMM_WORLD) OK=0;
   else
   {
      MPI_Comm_rank(MPI_COMM_WORLD, &Iam);
      if (Iam > 1) OK = ((MPI_Comm) f77comm == MPI_COMM_NULL);
      else
      {
         i = MPI_Comm_size((MPI_Comm) f77comm, &Np);
     if (i != MPI_SUCCESS) OK = 0;
     else if (Np != 2) OK = 0;
      }
   }
   MPI_Allreduce(&OK, &i, 1, MPI_INT, MPI_MIN, MPI_COMM_WORLD);
   return(i);
}

ccommcheck()

int ccommcheck	(	int *	F77World,
		int *	f77comm )

Definition at line 35 of file tc_cCsameF77.c.

{
   return(Ccommcheck(*F77World, *f77comm));
}

ccommcheck_()

int ccommcheck_	(	int *	F77World,
		int *	f77comm )

Definition at line 31 of file tc_cCsameF77.c.

{
   return(Ccommcheck(*F77World, *f77comm));
}