/[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

temp/finley/src/ElementFile_scatter.c revision 1387 by trankine, Fri Jan 11 07:45:26 2008 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    
 /* $Id$ */  
   
2  /*******************************************************  /*******************************************************
3   *  *
4   *           Copyright 2003-2007 by ACceSS MNRF  * Copyright (c) 2003-2010 by University of Queensland
5   *       Copyright 2007 by University of Queensland  * Earth Systems Science Computational Center (ESSCC)
6   *  * http://www.uq.edu.au/esscc
7   *                http://esscc.uq.edu.au  *
8   *        Primary Business: Queensland, Australia  * Primary Business: Queensland, Australia
9   *  Licensed under the Open Software License version 3.0  * Licensed under the Open Software License version 3.0
10   *     http://www.opensource.org/licenses/osl-3.0.php  * http://www.opensource.org/licenses/osl-3.0.php
11   *  *
12   *******************************************************/  *******************************************************/
13    
14  /**************************************************************/  
15  /*                                                                                            */  /**************************************************************
16  /*   Finley: ElementFile                                                                      */  *                                                                                            
17  /*                                                                                            */  *   Finley: ElementFile                                                                      
18  /*   scatter the ElementFile in into the  ElementFile out using index[0:out->numElements-1].  */  *                                                                                            
19  /*   index has to be between 0 and in->numElements-1.                                         */  *   scatter the ElementFile in into the  ElementFile out using index[0:out->numElements-1].  
20  /*   a conservative assumtion on the coloring is made                                         */  *   index has to be between 0 and in->numElements-1.                                        
21  /*                                                                                            */  *   a conservative assumtion on the coloring is made                                        
22  /**************************************************************/  *                                                                                            
23    **************************************************************/
24    
25  #include "ElementFile.h"  #include "ElementFile.h"
26    
# Line 31  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.1387  
changed lines
  Added in v.3080

  ViewVC Help
Powered by ViewVC 1.1.26