/[escript]/trunk/finley/src/Mesh_resolveNodeIds.c
ViewVC logotype

Diff of /trunk/finley/src/Mesh_resolveNodeIds.c

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

revision 730 by bcumming, Mon May 15 04:03:49 2006 UTC revision 751 by bcumming, Mon Jun 26 01:46:34 2006 UTC
# Line 67  void  Finley_Mesh_resolveNodeIds(Finley_ Line 67  void  Finley_Mesh_resolveNodeIds(Finley_
67    #endif    #endif
68        
69    /*  allocate a new node file used to gather existing node file: */    /*  allocate a new node file used to gather existing node file: */
70      
71    len=max_id-min_id+1;    len=max_id-min_id+1;
72  #ifndef PASO_MPI  #ifndef PASO_MPI
73    newNodeFile=Finley_NodeFile_alloc(numDim);    newNodeFile=Finley_NodeFile_alloc(numDim);
# Line 117  void  Finley_Mesh_resolveNodeIds(Finley_ Line 117  void  Finley_Mesh_resolveNodeIds(Finley_
117    if (! Finley_noError() ) goto clean;    if (! Finley_noError() ) goto clean;
118    
119    if (Finley_noError()) {    if (Finley_noError()) {
     
120        /*  scatter the nodefile in->nodes into newNodeFile using index; */        /*  scatter the nodefile in->nodes into newNodeFile using index; */
121        #pragma omp parallel for private(k) schedule(static)        #pragma omp parallel for private(k) schedule(static)
122        for (k=0;k<in->Nodes->numNodes;k++)        for (k=0;k<in->Nodes->numNodes;k++)
# Line 141  void  Finley_Mesh_resolveNodeIds(Finley_ Line 140  void  Finley_Mesh_resolveNodeIds(Finley_
140    
141        /*  relable nodes of the elements: */        /*  relable nodes of the elements: */
142        Finley_Mesh_relableElementNodes(maskElements,min_id,in);        Finley_Mesh_relableElementNodes(maskElements,min_id,in);
   
143    }    }
144    
145    /*  clean-up: */    /*  clean-up: */

Legend:
Removed from v.730  
changed lines
  Added in v.751

  ViewVC Help
Powered by ViewVC 1.1.26