/[escript]/trunk/paso/src/PCG.c
ViewVC logotype

Diff of /trunk/paso/src/PCG.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1578 by gross, Mon May 26 12:50:56 2008 UTC revision 1579 by ksteube, Mon Jun 2 08:48:36 2008 UTC
# Line 191  err_t Paso_Solver_PCG( Line 191  err_t Paso_Solver_PCG(
191             #ifdef PASO_MPI             #ifdef PASO_MPI
192              /* In case we have many MPI processes, each of which may have several OMP threads:              /* In case we have many MPI processes, each of which may have several OMP threads:
193                 OMP master participates in an MPI reduction to get global sum_1 */                 OMP master participates in an MPI reduction to get global sum_1 */
194              loc_saum[0] = sum_1;              loc_sum[0] = sum_1;
195              MPI_Allreduce(loc_sum, &sum_1, 1, MPI_DOUBLE, MPI_SUM, A->mpi_info->comm);              MPI_Allreduce(loc_sum, &sum_1, 1, MPI_DOUBLE, MPI_SUM, A->mpi_info->comm);
196             #endif             #endif
197             tau_old=tau;             tau_old=tau;
Legend:
Removed from v.1578  
changed lines
  Added in v.1579
  ViewVC Help
Powered by ViewVC 1.1.26