/FluidMechanics/TOOLS/MeshCreation/03_CreateField/cheart_prepvars.h

http://github.com/xyan075/examples · C Header · 50 lines · 47 code · 3 blank · 0 comment · 3 complexity · 8621ae1bfd707e4bf74f53d741c20e44 MD5 · raw file 

    

  1. TYPE ARRAY_MESH
    2. 

  2.           INTEGER Lx					! External Structure: Number of Tessellation Coefficients
    3. 

  3.           INTEGER Lt					! External Structure: Number of Tessellation elements
    4. 

  4.           INTEGER ID					! Internal Structure: Basis number to call letter map
    5. 

  5.           INTEGER Lb
    6. 

  6.           DOUBLE PRECISION, pointer :: X(:,:)		! External Structure: Tessellation coefficients
    7. 

  7.           INTEGER, pointer :: T(:,:)			! External Structure: Tessellation map
    8. 

  8.           INTEGER, pointer :: NBT(:,:)			! Internal Structure: Neighboring element map
    9. 

  9.           INTEGER, pointer :: B(:,:)
    10. 

  10.         END TYPE ARRAY_MESH
    11. 

  11. 

  12.         TYPE ARRAY_INT
    13. 

  13.           DOUBLE PRECISION, pointer :: Y(:,:)		! Internal Structure: Basis @ given volume quadrature points
    14. 

  14.           DOUBLE PRECISION, pointer :: Y_f(:,:,:)	! Internal Structure: Basis @ given facet quadrature points
    15. 

  15.           DOUBLE PRECISION, pointer :: dY(:,:,:), TdY(:,:,:), dY_f(:,:,:,:)
    16. 

  16.         END TYPE ARRAY_INT
    17. 

  17. 

  18.         TYPE ARRAY_BASE
    19. 

  19.           INTEGER n					! External Structure: Function Space dimension on T_e
    20. 

  20.           INTEGER nl					! Internal Structure: Breakdown for tensor input
    21. 

  21.           INTEGER DISCONT				! External Structure: Continuity constraint
    22. 

  22.           INTEGER DM					! External Structure: Field dimension
    23. 

  23.           TYPE(ARRAY_INT) I				! External Structure: Field integrations
    24. 

  24.           DOUBLE PRECISION, pointer :: Q(:,:)		! External Structure: Basis coefficient tensor
    25. 

  25.           DOUBLE PRECISION, pointer :: P(:,:)		! External Structure: Basis power tensor
    26. 

  26.           DOUBLE PRECISION, pointer :: XI(:,:)		! External Structure: Basis xi-point coordinates
    27. 

  27.           INTEGER, pointer :: B_ID(:,:)			! External Structure: Basis ordering tensor
    28. 

  28.           CHARACTER*2 CL				! External Structure: Basis call letter
    29. 

  29.         END TYPE ARRAY_BASE
    30. 

  30. 

  31.         TYPE ARRAY_PROBLEM_BASE
    32. 

  32.           TYPE(ARRAY_BASE), pointer :: B(:)		! Internal Structure: Basis
    33. 

  33.           INTEGER n_pts					! External Structure: number of volume quadrature points
    34. 

  34.           INTEGER n_pts_f				! External Structure: number of facet quadrature points
    35. 

  35.           INTEGER n_ptsl				! Internal Structure: volume quadrature for tensor input
    36. 

  36.           INTEGER n_pts_fl				! Internal Structure: facet quadrature for tensor input
    37. 

  37.           INTEGER HEXA					! External Structure: tensor input parameter
    38. 

  38.           INTEGER FACES					! External Structure: number of master element facets
    39. 

  39.           INTEGER FNODES				! External Structure: number of nodes per facet (spatial map)
    40. 

  40.           INTEGER n_B					! External Structure: number of basis
    41. 

  41.           INTEGER DM					! External Structure: spatial dimension of master element
    42. 

  42.           INTEGER TRI_BASIS, QUAD_BASIS, TET_BASIS, HEX_BASIS
    43. 

  43.           DOUBLE PRECISION VL				! External Structure: volume of master element
    44. 

  44.           DOUBLE PRECISION VL_f(6)			! External Structure: facet volume of master element
    45. 

  45.           DOUBLE PRECISION nrm(3,6)			! Internal Structure: facet normals of master element
    46. 

  46.           DOUBLE PRECISION, pointer :: gpt(:,:)		! External Structure: volume quadrature points
    47. 

  47.           DOUBLE PRECISION, pointer :: gw(:)		! External Structure: volume quadrature weights
    48. 

  48.           DOUBLE PRECISION, pointer :: gpt_f(:,:,:)	! External Structure: facet quadrature points
    49. 

  49.           DOUBLE PRECISION, pointer :: gw_f(:)		! External Structure: facet quadrature weights
    50. 

  50.         END TYPE ARRAY_PROBLEM_BASE
    51.