/[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 2747 by jfenwick, Mon Jul 20 06:20:06 2009 UTC revision 2748 by gross, Tue Nov 17 07:32:59 2009 UTC
# Line 12  Line 12 
12  *******************************************************/  *******************************************************/
13    
14    
15  /**************************************************************/  /**************************************************************
16  /*                                                                                            */  *                                                                                            
17  /*   Finley: ElementFile                                                                      */  *   Finley: ElementFile                                                                      
18  /*                                                                                            */  *                                                                                            
19  /*   scatter the ElementFile in into the  ElementFile out using index[0:out->numElements-1].  */  *   scatter the ElementFile in into the  ElementFile out using index[0:out->numElements-1].  
20  /*   index has to be between 0 and in->numElements-1.                                         */  *   index has to be between 0 and in->numElements-1.                                        
21  /*   a conservative assumtion on the coloring is made                                         */  *   a conservative assumtion on the coloring is made                                        
22  /*                                                                                            */  *                                                                                            
23  /**************************************************************/  **************************************************************/
24    
25  #include "ElementFile.h"  #include "ElementFile.h"
26    
# Line 30  void Finley_ElementFile_scatter(index_t* Line 30  void Finley_ElementFile_scatter(index_t*
30     index_t k;     index_t k;
31     dim_t e,j;     dim_t e,j;
32     if (in!=NULL) {     if (in!=NULL) {
33       dim_t NN_in=in->ReferenceElement->Type->numNodes;       dim_t NN_in=in->numNodes;
34       dim_t NN_out=out->ReferenceElement->Type->numNodes;       dim_t NN_out=out->numNodes;
35       /*OMP */       /*OMP */
36       #pragma omp parallel for private(e,k,j) schedule(static)       #pragma omp parallel for private(e,k,j) schedule(static)
37       for (e=0;e<in->numElements;e++) {       for (e=0;e<in->numElements;e++) {

Legend:
Removed from v.2747  
changed lines
  Added in v.2748

  ViewVC Help
Powered by ViewVC 1.1.26