← Back to branch summary

~vcs-imports/escript-finley/trunk

« back to all changes in this revision

Viewing changes to dudley/src/Mesh_markNodes.c

  • Committer: jfenwick
  • Date: 2010-10-11 01:48:14 UTC
  • Revision ID: svn-v4:77569008-7704-0410-b7a0-a92fef0b09fd:trunk:3259
Merging dudley and scons updates from branches

Show diffs side-by-side

added added

removed removed

Lines of Context:
dudley/src/Mesh_markNodes.c
 
1
 
 
2
/*******************************************************
 
3
*
 
4
* Copyright (c) 2003-2010 by University of Queensland
 
5
* 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
 
 
14
/**************************************************************/
 
15
 
 
16
/*   Dudley: Mesh */
 
17
 
 
18
/*   mark the used nodes with offeset: */
 
19
 
 
20
/**************************************************************/
 
21
 
 
22
#include "Mesh.h"
 
23
 
 
24
/**************************************************************/
 
25
 
 
26
void Dudley_Mesh_markNodes(index_t * mask, index_t offset, Dudley_Mesh * in, bool_t useLinear)
 
27
{
 
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->Points, useLinear);
 
31
}
 
32
 
 
33
void Dudley_Mesh_markDOFsConnectedToRange(index_t * mask, index_t offset, index_t marker,
 
34
                                          index_t firstDOF, index_t lastDOF, Dudley_Mesh * in, bool_t useLinear)
 
35
{
 
36
    index_t *dofIndex;
 
37
    if (useLinear)
 
38
    {
 
39
        dofIndex = in->Nodes->globalReducedDOFIndex;
 
40
    }
 
41
    else
 
42
    {
 
43
        dofIndex = in->Nodes->globalDegreesOfFreedom;
 
44
    }
 
45
    Dudley_ElementFile_markDOFsConnectedToRange(mask, offset, marker, firstDOF, lastDOF, dofIndex, in->Elements,
 
46
                                                useLinear);
 
47
    Dudley_ElementFile_markDOFsConnectedToRange(mask, offset, marker, firstDOF, lastDOF, dofIndex, in->FaceElements,
 
48
                                                useLinear);
 
49
    Dudley_ElementFile_markDOFsConnectedToRange(mask, offset, marker, firstDOF, lastDOF, dofIndex, in->Points,
 
50
                                                useLinear);
 
51
}