/FluidMechanics/TOOLS/MeshCreation/03_CreateField/cheart_prepvars.h
C Header | 50 lines | 47 code | 3 blank | 0 comment | 3 complexity | 8621ae1bfd707e4bf74f53d741c20e44 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 TRI_BASIS, QUAD_BASIS, TET_BASIS, HEX_BASIS 43 DOUBLE PRECISION VL ! External Structure: volume of master element 44 DOUBLE PRECISION VL_f(6) ! External Structure: facet volume of master element 45 DOUBLE PRECISION nrm(3,6) ! Internal Structure: facet normals of master element 46 DOUBLE PRECISION, pointer :: gpt(:,:) ! External Structure: volume quadrature points 47 DOUBLE PRECISION, pointer :: gw(:) ! External Structure: volume quadrature weights 48 DOUBLE PRECISION, pointer :: gpt_f(:,:,:) ! External Structure: facet quadrature points 49 DOUBLE PRECISION, pointer :: gw_f(:) ! External Structure: facet quadrature weights 50 END TYPE ARRAY_PROBLEM_BASE