# Contents of /trunk-mpi-branch/finley/src/ShapeFunctions.c

Revision 1307 - (show annotations)
Tue Sep 18 08:53:11 2007 UTC (13 years, 7 months ago) by gross
File MIME type: text/plain
File size: 69976 byte(s)
```This fixes a bug in the gmsh reader for tet10. As it turned out the last to nodes need to be swapped.

```
 1 2 /* \$Id\$ */ 3 4 /******************************************************* 5 * 6 * Copyright 2003-2007 by ACceSS MNRF 7 * Copyright 2007 by University of Queensland 8 * 9 * http://esscc.uq.edu.au 10 * Primary Business: Queensland, Australia 11 * Licensed under the Open Software License version 3.0 12 * http://www.opensource.org/licenses/osl-3.0.php 13 * 14 *******************************************************/ 15 16 /**************************************************************/ 17 18 /* Finley: Shape functions */ 19 20 /**************************************************************/ 21 22 #include "ShapeFunctions.h" 23 24 /**************************************************************/ 25 26 #define V(_K_,_I_) v[INDEX2((_K_)-1,(_I_),DIM)] 27 #define S(_J_,_I_) s[S_INDEX((_J_)-1,(_I_),NUMSHAPES)] 28 #define DSDV(_J_,_K_,_I_) dsdv[DSDV_INDEX((_J_)-1,(_K_)-1,(_I_),NUMSHAPES,DIM)] 29 30 /**************************************************************/ 31 32 void Finley_Shape_Point1(int NumV,double* v,double* s,double* dsdv) { 33 #define NUMSHAPES 1 34 #define DIM 0 35 int i; 36 for (i=0;i

## Properties

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