/[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 3013 by lgao, Wed Apr 28 03:39:22 2010 UTC revision 3014 by gross, Wed Apr 28 04:05:21 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]=( (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 133  printf("beta = %e from beta_0 = %e\n",be Line 133  printf("beta = %e from beta_0 = %e\n",be
133    }    }
134    return dt_max;    return dt_max;
135  }  }
136    void Paso_ReactiveSolver_initialize(const double dt, Paso_TransportProblem* fctp, Paso_Options* options)
137    {
138    }

Legend:
Removed from v.3013  
changed lines
  Added in v.3014

  ViewVC Help
Powered by ViewVC 1.1.26