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

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

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

revision 1975 by artak, Thu Nov 6 03:07:02 2008 UTC revision 1980 by artak, Thu Nov 6 04:45:08 2008 UTC
# Line 79  void Paso_Pattern_coup(Paso_SparseMatrix Line 79  void Paso_Pattern_coup(Paso_SparseMatrix
79                  }                  }
80              }              }
81                            
82              #pragma omp parallel for private(i,sum,iptr) schedule(static)              #pragma omp parallel for private(i,iptr) schedule(static)
83              for (i=0;i<n;++i)              for (i=0;i<n;++i)
84                  if(mis_marker[i]==IS_AVAILABLE)                  if(mis_marker[i]==IS_AVAILABLE)
85                             mis_marker[i]=IS_IN_SET;                             mis_marker[i]=IS_IN_SET;
# Line 115  void Paso_Pattern_coup(Paso_SparseMatrix Line 115  void Paso_Pattern_coup(Paso_SparseMatrix
115                 }                 }
116                }                }
117                                
          /*   #pragma omp parallel for private(i,sum,iptr) schedule(static)  
             for (i=0;i<n;++i)  
                 if(mis_marker[i]==IS_IN_SET)  
                     {  
                         sum=0.;  
                         for (iptr=A->pattern->ptr[i]-index_offset;iptr<A->pattern->ptr[i+1]-index_offset; ++iptr) {  
                             sum+=A->val[iptr];  
                         }  
                         if(ABS(sum)<ZERO)  
                            mis_marker[i]=IS_REMOVED;  
                     }  
          */    
118          }          }
119       /* swap to TRUE/FALSE in mis_marker */       /* swap to TRUE/FALSE in mis_marker */
120       #pragma omp parallel for private(i) schedule(static)       #pragma omp parallel for private(i) schedule(static)

Legend:
Removed from v.1975  
changed lines
  Added in v.1980

  ViewVC Help
Powered by ViewVC 1.1.26