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

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

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

revision 3020 by gross, Tue May 4 09:10:03 2010 UTC revision 3026 by gross, Mon May 10 06:23:49 2010 UTC
# Line 127  double Paso_FCTSolver_getSafeTimeStepSiz Line 127  double Paso_FCTSolver_getSafeTimeStepSiz
127          #pragma omp parallel private(dt_max_loc, fail_loc)          #pragma omp parallel private(dt_max_loc, fail_loc)
128          {          {
129                 dt_max_loc=LARGE_POSITIVE_FLOAT;                 dt_max_loc=LARGE_POSITIVE_FLOAT;
   
130             fail_loc=0;             fail_loc=0;
131                 #pragma omp for schedule(static) private(i,l_ii,m_i)                 #pragma omp for schedule(static) private(i,l_ii,m_i)
132                 for (i=0;i<n;++i) {                 for (i=0;i<n;++i) {
# Line 396  void Paso_FCTSolver_setUp(Paso_Transport Line 395  void Paso_FCTSolver_setUp(Paso_Transport
395       Paso_Coupler_startCollect(QP_coupler,QP);       Paso_Coupler_startCollect(QP_coupler,QP);
396       Paso_Coupler_finishCollect(QN_coupler);       Paso_Coupler_finishCollect(QN_coupler);
397       Paso_Coupler_finishCollect(QP_coupler);       Paso_Coupler_finishCollect(QP_coupler);
 }  
398    }

Legend:
Removed from v.3020  
changed lines
  Added in v.3026

  ViewVC Help
Powered by ViewVC 1.1.26