/[escript]/branches/windows_from_1456_trunk_1544_merged_in/paso/src/SolverFCT.c
ViewVC logotype

Diff of /branches/windows_from_1456_trunk_1544_merged_in/paso/src/SolverFCT.c

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

revision 1557 by phornby, Thu May 1 07:09:49 2008 UTC revision 1558 by ksteube, Tue May 20 07:33:49 2008 UTC
# Line 121  Paso_FCTransportProblem* Paso_FCTranspor Line 121  Paso_FCTransportProblem* Paso_FCTranspor
121                  out->u[i]=0.;                  out->u[i]=0.;
122               }               }
123               /* identify the main diagonals */               /* identify the main diagonals */
124               #pragma omp parallel for schedule(static) private(i,iptr,iptr_main,k)               #pragma omp parallel for schedule(static) private(i,iptr,iptr_main)
125               for (i = 0; i < n; ++i) {               for (i = 0; i < n; ++i) {
126                      iptr_main=pattern->mainPattern->ptr[0]-1;                      iptr_main=pattern->mainPattern->ptr[0]-1;
127                      for (iptr=pattern->mainPattern->ptr[i];iptr<pattern->mainPattern->ptr[i+1]; iptr++) {                      for (iptr=pattern->mainPattern->ptr[i];iptr<pattern->mainPattern->ptr[i+1]; iptr++) {
Legend:
Removed from v.1557  
changed lines
  Added in v.1558
  ViewVC Help
Powered by ViewVC 1.1.26