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

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

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

revision 3080 by jfenwick, Tue Aug 3 04:28:03 2010 UTC revision 3086 by jfenwick, Thu Aug 5 05:07:58 2010 UTC
# Line 14  Line 14 
14    
15  /**************************************************************/  /**************************************************************/
16    
17  /*   Finley: Mesh: NodeFile */  /*   Dudley: Mesh: NodeFile */
18    
19  /* copies node file in into node file out starting from offset          */  /* copies node file in into node file out starting from offset          */
20  /* the nodes offset to in->numNodes+offset-1 in out will be overwritten */  /* the nodes offset to in->numNodes+offset-1 in out will be overwritten */
# Line 26  Line 26 
26    
27  /**************************************************************/  /**************************************************************/
28    
29  void Finley_NodeFile_copyTable(int offset,Finley_NodeFile* out,int idOffset,int dofOffset,Finley_NodeFile* in) {  void Dudley_NodeFile_copyTable(int offset,Dudley_NodeFile* out,int idOffset,int dofOffset,Dudley_NodeFile* in) {
30      int i,n;      int i,n;
31      /* check dimension and file size */      /* check dimension and file size */
32      if (out->numDim!=in->numDim) {      if (out->numDim!=in->numDim) {
33          Finley_setError(TYPE_ERROR,"Finley_NodeFile_copyTable: dimensions of node files don't match");          Dudley_setError(TYPE_ERROR,"Dudley_NodeFile_copyTable: dimensions of node files don't match");
34      }      }
35      if (out->numNodes<in->numNodes+offset) {      if (out->numNodes<in->numNodes+offset) {
36          Finley_setError(MEMORY_ERROR,"Finley_NodeFile_copyTable: node table is too small.");          Dudley_setError(MEMORY_ERROR,"Dudley_NodeFile_copyTable: node table is too small.");
37      }      }
38      if (Finley_noError()) {      if (Dudley_noError()) {
39         #pragma omp parallel for private(i,n) schedule(static)         #pragma omp parallel for private(i,n) schedule(static)
40         for(n=0;n<in->numNodes;n++) {         for(n=0;n<in->numNodes;n++) {
41            out->Id[offset+n]=in->Id[n]+idOffset;            out->Id[offset+n]=in->Id[n]+idOffset;

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

  ViewVC Help
Powered by ViewVC 1.1.26