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

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

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

revision 3005 by gross, Thu Apr 22 05:59:31 2010 UTC revision 3012 by lgao, Wed Apr 28 03:39:22 2010 UTC
# Line 89  double Paso_ReactiveSolver_getSafeTimeSt Line 89  double Paso_ReactiveSolver_getSafeTimeSt
89    }    }
90    #ifdef PASO_MPI    #ifdef PASO_MPI
91       rtmp_loc[0]=beta_0;       rtmp_loc[0]=beta_0;
92       rtmp_loc[1]=1.(*(double) fail );       rtmp_loc[1]=1.*((double) fail );
93       MPI_Allreduce(rtmp_loc, rtmp, 2, MPI_DOUBLE, MPI_MAX, fctp->mpi_info->comm);       MPI_Allreduce(rtmp_loc, rtmp, 2, MPI_DOUBLE, MPI_MAX, fctp->mpi_info->comm);
94       beta_0=rtmp_loc[0];       beta_0=rtmp_loc[0];
95       fail= (rtmp_loc[0] > 0) ? 1 : 0;       fail= (rtmp_loc[0] > 0) ? 1 : 0;
# Line 132  printf("beta = %e from beta_0 = %e\n",be Line 132  printf("beta = %e from beta_0 = %e\n",be
132        #endif        #endif
133    }    }
134    return dt_max;    return dt_max;
 }  
135    }

Legend:
Removed from v.3005  
changed lines
  Added in v.3012

  ViewVC Help
Powered by ViewVC 1.1.26