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

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

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

revision 1669 by gross, Mon Jul 21 22:08:27 2008 UTC revision 1670 by ksteube, Thu Jul 24 04:30:43 2008 UTC
# Line 147  void Paso_SolverFCT_solve(Paso_FCTranspo Line 147  void Paso_SolverFCT_solve(Paso_FCTranspo
147                                         fctp->transport_matrix->row_block_size,                                         fctp->transport_matrix->row_block_size,
148                                         fctp->transport_matrix->col_block_size);                                         fctp->transport_matrix->col_block_size);
149     if (Paso_noError()) {     if (Paso_noError()) {
150           #ifdef PASO_MPI
151             double local_norm[2], norm[2];
152           #endif
153         /*         /*
154          *    Preparation:          *    Preparation:
155          *          *
# Line 339  void Paso_SolverFCT_solve(Paso_FCTranspo Line 342  void Paso_SolverFCT_solve(Paso_FCTranspo
342                         }                         }
343                         Paso_Coupler_startCollect(u_m_coupler,u_m);                         Paso_Coupler_startCollect(u_m_coupler,u_m);
344                         #ifdef PASO_MPI                         #ifdef PASO_MPI
               double local_norm[2], norm[2];  
345                            local_norm[0]=norm_u;                            local_norm[0]=norm_u;
346                            local_norm[1]=norm_du;                            local_norm[1]=norm_du;
347                        MPI_Allreduce(local_norm,norm, 2, MPI_DOUBLE, MPI_MAX, fctp->mpi_info->comm);                        MPI_Allreduce(local_norm,norm, 2, MPI_DOUBLE, MPI_MAX, fctp->mpi_info->comm);
Legend:
Removed from v.1669  
changed lines
  Added in v.1670
  ViewVC Help
Powered by ViewVC 1.1.26