double real, imag;
} Complex;
-void
-myProd (void *inp, void *inoutp, int *len, MPI_Datatype *dptr)
+void
+myProd (void *inp, void *inoutp, int *len, MPI_Datatype *dptr)
{
int i;
Complex c;
{
int nprocs = -1;
int rank = -1;
- int comm = MPI_COMM_WORLD;
+ MPI_Comm comm = MPI_COMM_WORLD;
int i;
char processor_name[128];
int namelen = 128;
MPI_Barrier (comm);
- for (i = 0; i < OP_COUNT; i++)
+ for (i = 0; i < OP_COUNT; i++)
MPI_Op_create (myProd, 1, &newop[i]);
MPI_Barrier (comm);