/[escript]/branches/domexper/dudley/src/Util.c
ViewVC logotype

Diff of /branches/domexper/dudley/src/Util.c

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

revision 798 by gross, Fri Aug 4 01:05:36 2006 UTC revision 799 by ksteube, Mon Aug 7 23:30:53 2006 UTC
# Line 79  void Finley_Util_AddScatter(dim_t len,in Line 79  void Finley_Util_AddScatter(dim_t len,in
79     dim_t i,s;     dim_t i,s;
80     for (s=0;s<len;s++) {     for (s=0;s<len;s++) {
81         for(i=0;i<numData;i++) {         for(i=0;i<numData;i++) {
82            #pragma omp atomic            if( index[s]<upperBound ) {
83            if( index[s]<upperBound )              #pragma omp atomic
84              out[INDEX2(i,index[s],numData)]+=in[INDEX2(i,s,numData)];              out[INDEX2(i,index[s],numData)]+=in[INDEX2(i,s,numData)];
85          }
86         }         }
87     }     }
88  }  }

Legend:
Removed from v.798  
changed lines
  Added in v.799

  ViewVC Help
Powered by ViewVC 1.1.26