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

Annotation of /branches/domexper/dudley/src/Mesh_markNodes.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3086 - (hide annotations)
Thu Aug 5 05:07:58 2010 UTC (9 years, 7 months ago) by jfenwick
File MIME type: text/plain
File size: 2016 byte(s)
Another pass at removing finley

1 jgs 150
2 ksteube 1312 /*******************************************************
3 ksteube 1811 *
4 jfenwick 2881 * Copyright (c) 2003-2010 by University of Queensland
5 ksteube 1811 * Earth Systems Science Computational Center (ESSCC)
6     * http://www.uq.edu.au/esscc
7     *
8     * Primary Business: Queensland, Australia
9     * Licensed under the Open Software License version 3.0
10     * http://www.opensource.org/licenses/osl-3.0.php
11     *
12     *******************************************************/
13 ksteube 1312
14 ksteube 1811
15 jgs 82 /**************************************************************/
16    
17 jfenwick 3086 /* Dudley: Mesh */
18 jgs 82
19     /* mark the used nodes with offeset: */
20    
21     /**************************************************************/
22    
23     #include "Mesh.h"
24    
25     /**************************************************************/
26    
27 jfenwick 3086 void Dudley_Mesh_markNodes(index_t* mask,index_t offset,Dudley_Mesh* in,bool_t useLinear) {
28     Dudley_ElementFile_markNodes(mask,offset,in->Nodes->numNodes,in->Elements,useLinear);
29     Dudley_ElementFile_markNodes(mask,offset,in->Nodes->numNodes,in->FaceElements,useLinear);
30     Dudley_ElementFile_markNodes(mask,offset,in->Nodes->numNodes,in->ContactElements,useLinear);
31     Dudley_ElementFile_markNodes(mask,offset,in->Nodes->numNodes,in->Points,useLinear);
32 jgs 82 }
33 bcumming 751
34 jfenwick 3086 void Dudley_Mesh_markDOFsConnectedToRange(index_t* mask, index_t offset, index_t marker,
35     index_t firstDOF,index_t lastDOF,Dudley_Mesh* in, bool_t useLinear)
36 ksteube 1312 {
37     index_t *dofIndex;
38     if (useLinear) {
39     dofIndex=in->Nodes->globalReducedDOFIndex;
40     } else {
41     dofIndex=in->Nodes->globalDegreesOfFreedom;
42     }
43 jfenwick 3086 Dudley_ElementFile_markDOFsConnectedToRange(mask,offset,marker,firstDOF,lastDOF,dofIndex,in->Elements,useLinear);
44     Dudley_ElementFile_markDOFsConnectedToRange(mask,offset,marker,firstDOF,lastDOF,dofIndex,in->FaceElements,useLinear);
45     Dudley_ElementFile_markDOFsConnectedToRange(mask,offset,marker,firstDOF,lastDOF,dofIndex,in->ContactElements,useLinear);
46     Dudley_ElementFile_markDOFsConnectedToRange(mask,offset,marker,firstDOF,lastDOF,dofIndex,in->Points,useLinear);
47 ksteube 1312 }

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.26