/[escript]/branches/domexper/dudley/src/ElementFile_relableNodes.c
ViewVC logotype

Diff of /branches/domexper/dudley/src/ElementFile_relableNodes.c

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

revision 3086 by jfenwick, Thu Aug 5 05:07:58 2010 UTC revision 3224 by jfenwick, Wed Sep 29 05:19:37 2010 UTC
# Line 11  Line 11 
11  *  *
12  *******************************************************/  *******************************************************/
13    
   
14  /**************************************************************/  /**************************************************************/
15    
16  /*   Dudley: ElementFile */  /*   Dudley: ElementFile */
# Line 26  Line 25 
25    
26  /**************************************************************/  /**************************************************************/
27    
28  void Dudley_ElementFile_relableNodes(index_t* newNode,index_t offset,Dudley_ElementFile* in) {  void Dudley_ElementFile_relableNodes(index_t * newNode, index_t offset, Dudley_ElementFile * in)
29     dim_t i,j,NN;  {
30        dim_t i, j, NN;
31     if (in!=NULL) {  
32       NN=in->numNodes;      if (in != NULL)
33       #pragma omp parallel for private(j,i) schedule(static)      {
34       for (j=0;j<in->numElements;j++) {      NN = in->numNodes;
35         for (i=0;i<NN;i++) {  #pragma omp parallel for private(j,i) schedule(static)
36           in->Nodes[INDEX2(i,j,NN)]=newNode[in->Nodes[INDEX2(i,j,NN)]-offset];      for (j = 0; j < in->numElements; j++)
37         }      {
38       }          for (i = 0; i < NN; i++)
39     }          {
40            in->Nodes[INDEX2(i, j, NN)] = newNode[in->Nodes[INDEX2(i, j, NN)] - offset];
41            }
42        }
43        }
44  }  }

Legend:
Removed from v.3086  
changed lines
  Added in v.3224

  ViewVC Help
Powered by ViewVC 1.1.26