/[escript]/trunk/dudley/src/Mesh_optimizeDOFDistribution.c
ViewVC logotype

Diff of /trunk/dudley/src/Mesh_optimizeDOFDistribution.c

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

revision 1722 by gross, Fri Aug 22 04:20:30 2008 UTC revision 1723 by gross, Fri Aug 22 04:24:19 2008 UTC
# Line 118  void Finley_Mesh_optimizeDOFDistribution Line 118  void Finley_Mesh_optimizeDOFDistribution
118                #pragma omp parallel for private(i)                #pragma omp parallel for private(i)
119                for(i=0;i<myNumVertices;++i) Finley_IndexList_free(index_list[i].extension);                for(i=0;i<myNumVertices;++i) Finley_IndexList_free(index_list[i].extension);
120             }             }
 {  
 int s=0, s0;  
 for (i=0;i<myNumVertices;++i) {  
     s0=s;  
     for (j=pattern->ptr[i];j<pattern->ptr[i+1];++j) {  
         if (pattern->index[j] != myFirstVertex+i) {  
             pattern->index[s]=pattern->index[j];  
             s++;  
         }  
      }  
      pattern->ptr[i]=s0;  
 }  
 pattern->ptr[myNumVertices]=s;  
 }  
   
121    
122             if (Finley_noError()) {             if (Finley_noError()) {
123    

Legend:
Removed from v.1722  
changed lines
  Added in v.1723

  ViewVC Help
Powered by ViewVC 1.1.26