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

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

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

revision 3025 by gross, Wed Apr 28 04:05:21 2010 UTC revision 3026 by gross, Mon May 10 06:23:49 2010 UTC
# Line 177  void Paso_TransportProblem_setUpConstrai Line 177  void Paso_TransportProblem_setUpConstrai
177     }     }
178    
179        
180     #pragma omp for schedule(static) private(i,m,rtmp)     #pragma omp parallel for schedule(static) private(i,m,rtmp)
181     for (i=0;i<n;++i) {     for (i=0;i<n;++i) {
182          if (q[i]>0) {          if (q[i]>0) {
183             m=fctp->mass_matrix->mainBlock->val[main_iptr[i]];             m=fctp->mass_matrix->mainBlock->val[main_iptr[i]];
# Line 196  void Paso_TransportProblem_insertConstra Line 196  void Paso_TransportProblem_insertConstra
196     dim_t i, n;     dim_t i, n;
197     n=Paso_SystemMatrix_getTotalNumRows(fctp->transport_matrix);     n=Paso_SystemMatrix_getTotalNumRows(fctp->transport_matrix);
198    
199     #pragma omp for schedule(static) private(i)     #pragma omp parallel for schedule(static) private(i)
200     for (i=0;i<n;++i) source[i]+=fctp->constraint_weights[i] * r[i];     for (i=0;i<n;++i) source[i]+=fctp->constraint_weights[i] * r[i];
201  }  }
 /*****************************************************/  
202    /*****************************************************/

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

  ViewVC Help
Powered by ViewVC 1.1.26