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

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

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

revision 1366 by gross, Tue Dec 18 05:49:17 2007 UTC revision 1367 by gross, Wed Dec 19 02:45:07 2007 UTC
# Line 53  Paso_FCTransportProblem* Paso_FCTranspor Line 53  Paso_FCTransportProblem* Paso_FCTranspor
53       if (in!=NULL) {       if (in!=NULL) {
54          ++(in->reference_counter);          ++(in->reference_counter);
55       }       }
56         return in;
57  }      }    
58    
59  Paso_SystemMatrix* Paso_FCTransportProblem_borrowTransportMatrix(Paso_FCTransportProblem* in) {  Paso_SystemMatrix* Paso_FCTransportProblem_borrowTransportMatrix(Paso_FCTransportProblem* in) {
# Line 116  Paso_FCTransportProblem* Paso_FCTranspor Line 117  Paso_FCTransportProblem* Paso_FCTranspor
117               Paso_Pattern_color(pattern->mainPattern,&(out->num_colors),out->colorOf);               Paso_Pattern_color(pattern->mainPattern,&(out->num_colors),out->colorOf);
118    
119                            
120                 #pragma omp parallel for schedule(static) private(i)
121                 for (i = 0; i < n; ++i) {
122                    out->lumped_mass_matrix[i]=0.;
123                    out->row_sum_flux_matrix[i]=0.;
124                    out->u[i]=0.;
125                 }
126    
127               /* identify the main diagonals */               /* identify the main diagonals */
128               #pragma omp parallel for schedule(static) private(i,iptr,iptr_main,k)               #pragma omp parallel for schedule(static) private(i,iptr,iptr_main,k)
129               for (i = 0; i < n; ++i) {               for (i = 0; i < n; ++i) {
Legend:
Removed from v.1366  
changed lines
  Added in v.1367
  ViewVC Help
Powered by ViewVC 1.1.26