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

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

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

trunk/finley/src/ElementFile_scatter.c revision 2548 by jfenwick, Mon Jul 20 06:20:06 2009 UTC branches/domexper/dudley/src/ElementFile_scatter.c revision 3080 by jfenwick, Tue Aug 3 04:28:03 2010 UTC
# Line 1  Line 1 
1    
2  /*******************************************************  /*******************************************************
3  *  *
4  * Copyright (c) 2003-2009 by University of Queensland  * Copyright (c) 2003-2010 by University of Queensland
5  * Earth Systems Science Computational Center (ESSCC)  * Earth Systems Science Computational Center (ESSCC)
6  * http://www.uq.edu.au/esscc  * http://www.uq.edu.au/esscc
7  *  *
# 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.2548  
changed lines
  Added in v.3080

  ViewVC Help
Powered by ViewVC 1.1.26