mpi_cplx_sum()

void mpi_cplx_sum	(	COMPLEX *	in,
		COMPLEX *	inout,
		int *	len,
		MPI_Datatype *	dptr
	)

Defining complex operator for sum for MPI reduction

                                                                           {
  int i;
  COMPLEX c;

  for(i=0;i<*len;++i) {
    c = *in+*inout;
    *inout = c;
    in++;inout++;
  }

}