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

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

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

branches/domexper/dudley/src/Mesh_markNodes.c revision 3086 by jfenwick, Thu Aug 5 05:07:58 2010 UTC trunk/dudley/src/Mesh_markNodes.c revision 3981 by jfenwick, Fri Sep 21 02:47:54 2012 UTC
# Line 1  Line 1 
1    
2  /*******************************************************  /*****************************************************************************
3  *  *
4  * Copyright (c) 2003-2010 by University of Queensland  * Copyright (c) 2003-2012 by University of Queensland
5  * Earth Systems Science Computational Center (ESSCC)  * http://www.uq.edu.au
 * http://www.uq.edu.au/esscc  
6  *  *
7  * Primary Business: Queensland, Australia  * Primary Business: Queensland, Australia
8  * Licensed under the Open Software License version 3.0  * Licensed under the Open Software License version 3.0
9  * http://www.opensource.org/licenses/osl-3.0.php  * http://www.opensource.org/licenses/osl-3.0.php
10  *  *
11  *******************************************************/  * Development until 2012 by Earth Systems Science Computational Center (ESSCC)
12    * Development since 2012 by School of Earth Sciences
13    *
14    *****************************************************************************/
15    
16  /**************************************************************/  /************************************************************************************/
17    
18  /*   Dudley: Mesh */  /*   Dudley: Mesh */
19    
20  /*   mark the used nodes with offeset: */  /*   mark the used nodes with offeset: */
21    
22  /**************************************************************/  /************************************************************************************/
23    
24  #include "Mesh.h"  #include "Mesh.h"
25    
26  /**************************************************************/  /************************************************************************************/
27    
28  void Dudley_Mesh_markNodes(index_t* mask,index_t offset,Dudley_Mesh* in,bool_t useLinear) {  void Dudley_Mesh_markNodes(index_t * mask, index_t offset, Dudley_Mesh * in, bool_t useLinear)
29            Dudley_ElementFile_markNodes(mask,offset,in->Nodes->numNodes,in->Elements,useLinear);  {
30            Dudley_ElementFile_markNodes(mask,offset,in->Nodes->numNodes,in->FaceElements,useLinear);      Dudley_ElementFile_markNodes(mask, offset, in->Nodes->numNodes, in->Elements, useLinear);
31            Dudley_ElementFile_markNodes(mask,offset,in->Nodes->numNodes,in->ContactElements,useLinear);      Dudley_ElementFile_markNodes(mask, offset, in->Nodes->numNodes, in->FaceElements, useLinear);
32            Dudley_ElementFile_markNodes(mask,offset,in->Nodes->numNodes,in->Points,useLinear);      Dudley_ElementFile_markNodes(mask, offset, in->Nodes->numNodes, in->Points, useLinear);
33  }  }
34    
35  void Dudley_Mesh_markDOFsConnectedToRange(index_t* mask, index_t offset, index_t marker,  void Dudley_Mesh_markDOFsConnectedToRange(index_t * mask, index_t offset, index_t marker,
36                                            index_t firstDOF,index_t lastDOF,Dudley_Mesh* in, bool_t useLinear)                        index_t firstDOF, index_t lastDOF, Dudley_Mesh * in, bool_t useLinear)
37  {  {
38     index_t *dofIndex;      index_t *dofIndex;
39     if (useLinear) {      if (useLinear)
40         dofIndex=in->Nodes->globalReducedDOFIndex;      {
41     } else {      dofIndex = in->Nodes->globalReducedDOFIndex;
42         dofIndex=in->Nodes->globalDegreesOfFreedom;      }
43     }      else
44     Dudley_ElementFile_markDOFsConnectedToRange(mask,offset,marker,firstDOF,lastDOF,dofIndex,in->Elements,useLinear);      {
45     Dudley_ElementFile_markDOFsConnectedToRange(mask,offset,marker,firstDOF,lastDOF,dofIndex,in->FaceElements,useLinear);      dofIndex = in->Nodes->globalDegreesOfFreedom;
46     Dudley_ElementFile_markDOFsConnectedToRange(mask,offset,marker,firstDOF,lastDOF,dofIndex,in->ContactElements,useLinear);      }
47     Dudley_ElementFile_markDOFsConnectedToRange(mask,offset,marker,firstDOF,lastDOF,dofIndex,in->Points,useLinear);      Dudley_ElementFile_markDOFsConnectedToRange(mask, offset, marker, firstDOF, lastDOF, dofIndex, in->Elements,
48                            useLinear);
49        Dudley_ElementFile_markDOFsConnectedToRange(mask, offset, marker, firstDOF, lastDOF, dofIndex, in->FaceElements,
50                            useLinear);
51        Dudley_ElementFile_markDOFsConnectedToRange(mask, offset, marker, firstDOF, lastDOF, dofIndex, in->Points,
52                            useLinear);
53  }  }

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

  ViewVC Help
Powered by ViewVC 1.1.26