/[escript]/branches/domexper/dudley/src/ShapeTable.h
ViewVC logotype

Contents of /branches/domexper/dudley/src/ShapeTable.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3197 - (show annotations)
Wed Sep 22 05:52:31 2010 UTC (8 years, 6 months ago) by jfenwick
File MIME type: text/plain
File size: 1913 byte(s)
SOme nsaty hacks

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 /* Shape Function info
16 These tables are a much simplified version of content from finley's ShapeFunctions files
17
18 This file is not to be included in .h files - only .c files should have any use for it
19 */
20
21 #ifndef SHAPETABLE_DUDLEY
22 #define SHAPETABLE_DUDLEY
23
24 #include "paso/Common.h" // I just want the types not all the includes that get dragged in - fix that
25
26 // These are constructed from dsdv in ShapeFunction.c in finley
27 // The first two are just there for functions that want a pointer
28 static const double DTDV_0D[1][1]={{0}};
29 static const double DTDV_1D[2][2]={{-1.,1},{-1.,1.}};
30 static const double DTDV_2D[3][2]={{-1,-1}, {1,0}, {0,1}};
31 static const double DTDV_3D[4][3]={{-1, -1, -1}, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}};
32
33
34 // If these appear to be in a different order to finley it is because finley uses macros to hide Fortran array ordering
35 static const double DTDV_2D_alt[3*3][2]={{-1,1}, {0,-1.}, {0,1},
36 {-1,1}, {0,-1.}, {0,1},
37 {-1,1}, {0,-1.}, {0,1}
38 };
39 // the repetition is a hack
40 // Why didn't I just reorder DTDV_2D? Well some code apparently depends on the order as written.
41 // should probably fix that
42
43
44 // [0] is reduced quadrature, [1] is full quadrature
45 // in order the positions are POINT, LINE, TRI, TET
46 static const double QuadWeight[4][2]={{0, 0}, {1., 0.5}, {0.5, 1./6}, {1./6, 1./24}};
47
48 static const dim_t QuadNums[4][2] ={{0,0}, {1,2}, {1,3}, {1,4}};
49
50 //shape functions at quadrature nodes
51 bool_t getQuadShape(dim_t sim, bool_t reduced, const double** shapearr);
52
53
54
55
56
57
58
59 #endif
60
61
62

  ViewVC Help
Powered by ViewVC 1.1.26