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

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

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

revision 1555 by ksteube, Wed Apr 9 04:13:09 2008 UTC revision 1556 by gross, Mon May 12 00:54:58 2008 UTC
# Line 154  double Paso_InnerProduct(const dim_t n,c Line 154  double Paso_InnerProduct(const dim_t n,c
154          my_out+=local_out;          my_out+=local_out;
155     }     }
156     #ifdef PASO_MPI     #ifdef PASO_MPI
157        #pragma omp master        #pragma omp single
158        {        {
159            MPI_Allreduce(&my_out,&out, 1, MPI_DOUBLE, MPI_SUM, mpiinfo->comm);            MPI_Allreduce(&my_out,&out, 1, MPI_DOUBLE, MPI_SUM, mpiinfo->comm);
160         }         }
# Line 184  double Paso_l2(const dim_t n, const doub Line 184  double Paso_l2(const dim_t n, const doub
184          my_out+=local_out;          my_out+=local_out;
185     }     }
186     #ifdef PASO_MPI     #ifdef PASO_MPI
187        #pragma omp master        #pragma omp single
188        {        {
189            MPI_Allreduce(&my_out,&out, 1, MPI_DOUBLE, MPI_SUM, mpiinfo->comm);            MPI_Allreduce(&my_out,&out, 1, MPI_DOUBLE, MPI_SUM, mpiinfo->comm);
190         }         }

Legend:
Removed from v.1555  
changed lines
  Added in v.1556

  ViewVC Help
Powered by ViewVC 1.1.26