PageRenderTime 29ms CodeModel.GetById 1ms app.highlight 22ms RepoModel.GetById 1ms app.codeStats 0ms

/FluidMechanics/TOOLS/MeshCreation/02_CreateCMInput/cheart_cmgui3D.h

http://github.com/xyan075/examples
C Header | 57 lines | 48 code | 9 blank | 0 comment | 3 complexity | 88c0102352cf706e0920b4b511183302 MD5 | raw file
 1        TYPE ARRAY_MESH
 2          INTEGER Lx					! External Structure: Number of Tessellation Coefficients
 3          INTEGER Lt					! External Structure: Number of Tessellation elements
 4          INTEGER ID					! Internal Structure: Basis number to call letter map
 5          INTEGER Lb
 6          DOUBLE PRECISION, pointer :: X(:,:)		! External Structure: Tessellation coefficients
 7          INTEGER, pointer :: T(:,:)			! External Structure: Tessellation map
 8          INTEGER, pointer :: NBT(:,:)			! Internal Structure: Neighboring element map
 9          INTEGER, pointer :: B(:,:)
10        END TYPE ARRAY_MESH
11
12        TYPE ARRAY_INT
13          DOUBLE PRECISION, pointer :: Y(:,:)		! Internal Structure: Basis @ given volume quadrature points
14          DOUBLE PRECISION, pointer :: Y_f(:,:,:)	! Internal Structure: Basis @ given facet quadrature points
15          DOUBLE PRECISION, pointer :: dY(:,:,:), TdY(:,:,:), dY_f(:,:,:,:)
16        END TYPE ARRAY_INT
17
18        TYPE ARRAY_BASE
19          INTEGER n					! External Structure: Function Space dimension on T_e
20          INTEGER nl					! Internal Structure: Breakdown for tensor input
21          INTEGER DISCONT				! External Structure: Continuity constraint
22          INTEGER DM					! External Structure: Field dimension
23          TYPE(ARRAY_INT) I				! External Structure: Field integrations
24          DOUBLE PRECISION, pointer :: Q(:,:)		! External Structure: Basis coefficient tensor
25          DOUBLE PRECISION, pointer :: P(:,:)		! External Structure: Basis power tensor
26          DOUBLE PRECISION, pointer :: XI(:,:)		! External Structure: Basis xi-point coordinates
27          INTEGER, pointer :: B_ID(:,:)			! External Structure: Basis ordering tensor
28          CHARACTER*2 CL				! External Structure: Basis call letter
29        END TYPE ARRAY_BASE
30
31        TYPE ARRAY_PROBLEM_BASE
32          TYPE(ARRAY_BASE), pointer :: B(:)		! Internal Structure: Basis
33          INTEGER n_pts					! External Structure: number of volume quadrature points
34          INTEGER n_pts_f				! External Structure: number of facet quadrature points
35          INTEGER n_ptsl				! Internal Structure: volume quadrature for tensor input
36          INTEGER n_pts_fl				! Internal Structure: facet quadrature for tensor input
37          INTEGER HEXA					! External Structure: tensor input parameter
38          INTEGER FACES					! External Structure: number of master element facets
39          INTEGER FNODES				! External Structure: number of nodes per facet (spatial map)
40          INTEGER n_B					! External Structure: number of basis
41          INTEGER DM					! External Structure: spatial dimension of master element
42          INTEGER SPL, VEL, PRS
43          INTEGER TRI_BASIS, QUAD_BASIS, TET_BASIS, HEX_BASIS
44          DOUBLE PRECISION VL				! External Structure: volume of master element
45          DOUBLE PRECISION VL_f(6)			! External Structure: facet volume of master element
46          DOUBLE PRECISION nrm(3,6)			! Internal Structure: facet normals of master element
47          DOUBLE PRECISION, pointer :: gpt(:,:)		! External Structure: volume quadrature points
48          DOUBLE PRECISION, pointer :: gw(:)		! External Structure: volume quadrature weights
49          DOUBLE PRECISION, pointer :: gpt_f(:,:,:)	! External Structure: facet quadrature points
50          DOUBLE PRECISION, pointer :: gw_f(:)		! External Structure: facet quadrature weights
51        END TYPE ARRAY_PROBLEM_BASE
52
53
54
55
56
57