/[escript]/trunk/finley/src/finleyC/ElementFile_gather.c
ViewVC logotype

Diff of /trunk/finley/src/finleyC/ElementFile_gather.c

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

revision 82 by jgs, Tue Oct 26 06:53:54 2004 UTC revision 123 by jgs, Fri Jul 8 04:08:13 2005 UTC
# Line 20  Line 20 
20    
21  /**************************************************************/  /**************************************************************/
22    
23  void Finley_ElementFile_gather(int* index, Finley_ElementFile* in, Finley_ElementFile* out) {  void Finley_ElementFile_gather(index_t* index, Finley_ElementFile* in, Finley_ElementFile* out) {
24     maybelong e,k,j;     index_t k;
25     maybelong NN_in=in->ReferenceElement->Type->numNodes;     dim_t e,j;
26     maybelong NN_out=out->ReferenceElement->Type->numNodes;     dim_t NN_in=in->ReferenceElement->Type->numNodes;
27       dim_t NN_out=out->ReferenceElement->Type->numNodes;
28     if (in!=NULL) {     if (in!=NULL) {
29       /*OMP */       /*OMP */
30       #pragma omp parallel for private(e,k,j) schedule(static)       #pragma omp parallel for private(e,k,j) schedule(static)
# Line 31  void Finley_ElementFile_gather(int* inde Line 32  void Finley_ElementFile_gather(int* inde
32          k=index[e];          k=index[e];
33          out->Id[e]=in->Id[k];          out->Id[e]=in->Id[k];
34          out->Tag[e]=in->Tag[k];          out->Tag[e]=in->Tag[k];
35          out->Color[e]=in->Color[k]+out->numColors;          out->Color[e]=in->Color[k]+out->maxColor+1;
36          for(j=0;j<MIN(NN_out,NN_in);j++) out->Nodes[INDEX2(j,e,NN_out)]=in->Nodes[INDEX2(j,k,NN_in)];          for(j=0;j<MIN(NN_out,NN_in);j++) out->Nodes[INDEX2(j,e,NN_out)]=in->Nodes[INDEX2(j,k,NN_in)];
37       }       }
38       out->numColors+=in->numColors;       out->minColor=MIN(out->minColor,in->minColor+out->maxColor+1);
39         out->maxColor=MAX(out->maxColor,in->maxColor+out->maxColor+1);
40     }     }
41  }  }
42  /*  /*
43  * $Log$  * $Log$
44  * Revision 1.1  2004/10/26 06:53:57  jgs  * Revision 1.2  2005/07/08 04:07:49  jgs
45  * Initial revision  * Merge of development branch back to main trunk on 2005-07-08
46    *
47    * Revision 1.1.1.1.2.2  2005/06/30 01:53:55  gross
48    * a bug in coloring fixed
49    *
50    * Revision 1.1.1.1.2.1  2005/06/29 02:34:49  gross
51    * some changes towards 64 integers in finley
52    *
53    * Revision 1.1.1.1  2004/10/26 06:53:57  jgs
54    * initial import of project esys2
55  *  *
56  * Revision 1.1.1.1  2004/06/24 04:00:40  johng  * Revision 1.1.1.1  2004/06/24 04:00:40  johng
57  * Initial version of eys using boost-python.  * Initial version of eys using boost-python.

Legend:
Removed from v.82  
changed lines
  Added in v.123

  ViewVC Help
Powered by ViewVC 1.1.26