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

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

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

revision 1407 by gross, Mon Feb 4 06:45:48 2008 UTC revision 1408 by gross, Mon Feb 4 07:19:50 2008 UTC
# Line 307  void Paso_FCTransportProblem_setRs(const Line 307  void Paso_FCTransportProblem_setRs(const
307    
308    n=Paso_SystemMatrix_getTotalNumRows(f);    n=Paso_SystemMatrix_getTotalNumRows(f);
309    pattern=f->pattern;    pattern=f->pattern;
310    #pragma omp parallel for schedule(static) private(i, u_i, iptr_ij, j, f_ij, PP_i, PN_i)    #pragma omp parallel for schedule(static) private(i, iptr_ij, j, f_ij, PP_i, PN_i)
311    for (i = 0; i < n; ++i) {    for (i = 0; i < n; ++i) {
312        PP_i=0.;        PP_i=0.;
313        PN_i=0.;        PN_i=0.;
# Line 386  void Paso_FCTransportProblem_addCorrecte Line 386  void Paso_FCTransportProblem_addCorrecte
386    }    }
387    Paso_SystemMatrix_startCollect(flux_matrix,RP);    Paso_SystemMatrix_startCollect(flux_matrix,RP);
388    remote_RP=Paso_SystemMatrix_finishCollect(flux_matrix);    remote_RP=Paso_SystemMatrix_finishCollect(flux_matrix);
389    #pragma omp parallel for schedule(static) private(i, RN_i, RP_i, iptr_ij, j, f_ij, f_i    #pragma omp parallel for schedule(static) private(i, RN_i, iptr_ij, j, f_ij, f_i)
390    for (i = 0; i < n; ++i) {    for (i = 0; i < n; ++i) {
391       RN_i=RN[i];       RN_i=RN[i];
392       f_i=0;       f_i=0;

Legend:
Removed from v.1407  
changed lines
  Added in v.1408

  ViewVC Help
Powered by ViewVC 1.1.26