/[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

trunk/finley/src/Mesh_markNodes.c revision 471 by jgs, Fri Jan 27 01:33:02 2006 UTC trunk/dudley/src/Mesh_markNodes.c revision 3981 by jfenwick, Fri Sep 21 02:47:54 2012 UTC
# Line 1  Line 1 
 /*  
  ******************************************************************************  
  *                                                                            *  
  *       COPYRIGHT  ACcESS 2003,2004,2005 -  All Rights Reserved              *  
  *                                                                            *  
  * This software is the property of ACcESS. No part of this code              *  
  * may be copied in any form or by any means without the expressed written    *  
  * consent of ACcESS.  Copying, use or modification of this software          *  
  * by any unauthorised person is illegal unless that person has a software    *  
  * license agreement with ACcESS.                                             *  
  *                                                                            *  
  ******************************************************************************  
 */  
1    
2  /**************************************************************/  /*****************************************************************************
3    *
4  /*   Finley: Mesh */  * Copyright (c) 2003-2012 by University of Queensland
5    * http://www.uq.edu.au
6    *
7    * Primary Business: Queensland, Australia
8    * Licensed under the Open Software License version 3.0
9    * 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  /*   mark the used nodes with offeset: */  /************************************************************************************/
17    
18  /**************************************************************/  /*   Dudley: Mesh */
19    
20  /*  Author: gross@access.edu.au */  /*   mark the used nodes with offeset: */
 /*  Version: $Id$ */  
21    
22  /**************************************************************/  /************************************************************************************/
23    
24  #include "Mesh.h"  #include "Mesh.h"
25    
26  /**************************************************************/  /************************************************************************************/
27    
28  void Finley_Mesh_markNodes(index_t* mask,index_t offset,Finley_Mesh* in,bool_t useLinear) {  void Dudley_Mesh_markNodes(index_t * mask, index_t offset, Dudley_Mesh * in, bool_t useLinear)
29            Finley_ElementFile_markNodes(mask,offset,in->Elements,useLinear);  {
30            Finley_ElementFile_markNodes(mask,offset,in->FaceElements,useLinear);      Dudley_ElementFile_markNodes(mask, offset, in->Nodes->numNodes, in->Elements, useLinear);
31            Finley_ElementFile_markNodes(mask,offset,in->ContactElements,useLinear);      Dudley_ElementFile_markNodes(mask, offset, in->Nodes->numNodes, in->FaceElements, useLinear);
32            Finley_ElementFile_markNodes(mask,offset,in->Points,useLinear);      Dudley_ElementFile_markNodes(mask, offset, in->Nodes->numNodes, in->Points, useLinear);
33  }  }
 /*  
 * $Log$  
 * Revision 1.3  2005/09/15 03:44:22  jgs  
 * Merge of development branch dev-02 back to main trunk on 2005-09-15  
 *  
 * Revision 1.2.2.1  2005/09/07 06:26:19  gross  
 * the solver from finley are put into the standalone package paso now  
 *  
 * Revision 1.2  2005/07/08 04:07:53  jgs  
 * Merge of development branch back to main trunk on 2005-07-08  
 *  
 * Revision 1.1.1.1.2.1  2005/06/29 02:34:52  gross  
 * some changes towards 64 integers in finley  
 *  
 * Revision 1.1.1.1  2004/10/26 06:53:57  jgs  
 * initial import of project esys2  
 *  
 * Revision 1.1.1.1  2004/06/24 04:00:40  johng  
 * Initial version of eys using boost-python.  
 *  
 *  
 */  
34    
35    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)
37    {
38        index_t *dofIndex;
39        if (useLinear)
40        {
41        dofIndex = in->Nodes->globalReducedDOFIndex;
42        }
43        else
44        {
45        dofIndex = in->Nodes->globalDegreesOfFreedom;
46        }
47        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.471  
changed lines
  Added in v.3981

  ViewVC Help
Powered by ViewVC 1.1.26