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

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

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

revision 1811 by ksteube, Thu Sep 25 23:11:13 2008 UTC revision 2107 by artak, Fri Nov 28 04:39:07 2008 UTC
# Line 127  void Paso_Pattern_color(Paso_Pattern* pa Line 127  void Paso_Pattern_color(Paso_Pattern* pa
127    if ( !Paso_checkPtr(mis_marker) ) {    if ( !Paso_checkPtr(mis_marker) ) {
128      /* get coloring */      /* get coloring */
129      #pragma omp parallel for private(i) schedule(static)      #pragma omp parallel for private(i) schedule(static)
130      for (i = 0; i < n; ++i) colorOf[i]=-1;      for (i = 0; i < n; ++i) {
131            colorOf[i]=-1;
132            mis_marker[i]=-1;
133        }
134    
135      while (Paso_Util_isAny(n,colorOf,-1) && Paso_noError()) {      while (Paso_Util_isAny(n,colorOf,-1) && Paso_noError()) {
136         #pragma omp parallel for private(i) schedule(static)         /*#pragma omp parallel for private(i) schedule(static)
137         for (i = 0; i < n; ++i) mis_marker[i]=colorOf[i];         for (i = 0; i < n; ++i) mis_marker[i]=colorOf[i];*/
138         Paso_Pattern_mis(pattern,mis_marker);         Paso_Pattern_mis(pattern,mis_marker);
139    
140         #pragma omp parallel for private(i) schedule(static)         #pragma omp parallel for private(i) schedule(static)
141         for (i = 0; i < n; ++i) if (mis_marker[i]) colorOf[i]=out;         for (i = 0; i < n; ++i) {
142            if (mis_marker[i]) colorOf[i]=out;
143            mis_marker[i]=colorOf[i];
144           }
145         ++out;         ++out;
146      }      }
147      TMPMEMFREE(mis_marker);      TMPMEMFREE(mis_marker);

Legend:
Removed from v.1811  
changed lines
  Added in v.2107

  ViewVC Help
Powered by ViewVC 1.1.26