Finite Element Domain Decomposition Library
FEDDLib
Loading...
Searching...
No Matches
vem_data.h
1
2 integer :: k_order ! Loop counter
3 integer :: ltot ! Total number of GP's
4 integer :: nk, nkm1, nkm2 ! Loop counter
5 common /vem_datai/ k_order,ltot,nk,nkm1,nkm2
6
7 integer :: qtype
8 common /vem_datai/ qtype
9
10 real (kind=8) :: vol,volhm !
11 real (kind=8) :: hVm1 !
12 common /vem_datar/ vol,volhm,hVm1
13
14 real (kind=8) :: Dmat(65,10) ! Stabilization matrix
15 real (kind=8) :: Pdmat(6,2,65) ! Derivative projection
16 real (kind=8) :: Plmat(2,2,65) ! Linking deriv. projection
17 real (kind=8) :: P0mat(10,65) ! Function projection
18 common /vem_datar/ Dmat, Pdmat, Plmat, P0mat
19
20 real (kind=8) :: xp(2,64) ! GP Cartesian coordinates
21 real (kind=8) :: xc(2) ! Centroid coordinate
22 common /vem_datar/ xp,xc
23
24 real (kind=8) :: mm(10,64) ! Interpolation at GP
25 real (kind=8) :: dd(10,10) ! Projection matrices
26 real (kind=8) :: dDmat(10) ! Projection matrices
27 real (kind=8) :: ss(65,65) ! Stabilization matrix
28 common /vem_datar/ mm,dd,dDmat,ss
29
30 real (kind=8) :: m0, m1,m2 ! Parameters for mid-sides
31 common /vem_datar/ m0, m1,m2
32
33! Reissner-Mindlin Plates
34
35 real (kind=8) :: Hmat(5,5)
36 real (kind=8) :: Gmat(5,66)
37 real (kind=8) :: Rmat(5)
38 common /vem_datarm/ Hmat, Gmat, Rmat
39
40 real (kind=8) :: elv(4,125)
41 integer :: lintv(20)
42 common /vem_dataq/ elv ,lintv
43
44 real (kind=8) :: elq(4,3),elc(4,7)
45 common /vem_datac/ elq ,elc
46
47! Plasticity values
48
49 real (kind=8) :: ss_pl(2), ep_pl(2), trSfac, trDfac
50 common /vem_datas/ ss_pl , ep_pl , trSfac, trDfac