/[escript]/trunk/finley/src/ElementFile_scatter.c
ViewVC logotype

Diff of /trunk/finley/src/ElementFile_scatter.c

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

revision 616 by elspeth, Wed Mar 22 02:46:56 2006 UTC revision 964 by gross, Tue Feb 13 05:10:26 2007 UTC
# Line 39  void Finley_ElementFile_scatter(index_t* Line 39  void Finley_ElementFile_scatter(index_t*
39       #pragma omp parallel for private(e,k,j) schedule(static)       #pragma omp parallel for private(e,k,j) schedule(static)
40       for (e=0;e<in->numElements;e++) {       for (e=0;e<in->numElements;e++) {
41          k=index[e];          k=index[e];
42    #ifdef PASO_MPI
43            out->Dom[k]=in->Dom[e];
44    #endif
45          out->Id[k]=in->Id[e];          out->Id[k]=in->Id[e];
46          out->Tag[k]=in->Tag[e];          out->Tag[k]=in->Tag[e];
47          out->Color[k]=in->Color[e]+out->maxColor+1;          out->Color[k]=in->Color[e]+out->maxColor+1;
# Line 46  void Finley_ElementFile_scatter(index_t* Line 49  void Finley_ElementFile_scatter(index_t*
49       }       }
50       out->minColor=MIN(out->minColor,in->minColor+out->maxColor+1);       out->minColor=MIN(out->minColor,in->minColor+out->maxColor+1);
51       out->maxColor=MAX(out->maxColor,in->maxColor+out->maxColor+1);       out->maxColor=MAX(out->maxColor,in->maxColor+out->maxColor+1);
52         out->isPrepared = MIN(in-> isPrepared,  out->isPrepared);
53     }     }
54  }  }
55  /*  /*

Legend:
Removed from v.616  
changed lines
  Added in v.964

  ViewVC Help
Powered by ViewVC 1.1.26