FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
GaussM.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
7 use hecmw
8 implicit none
9 real(kind=kreal) :: xg(3, 3)
10 real(kind=kreal) :: wgt(3, 3)
11 !****************************
12 !* Gauss Integration Table **
13 !****************************
14 !** 1st ***
15 data xg(1,1)/0.0/
16 data wgt(1,1)/2.0/
17 !** 2nd ***
18 data xg(2,1),xg(2,2)/-0.577350269189626,0.577350269189626/
19 data wgt(2,1),wgt(2,2)/1.0,1.0/
20 !** 3rd ***
21 data xg(3,1),xg(3,2),xg(3,3)/ &
22 -0.7745966692, &
23 0.0, &
24 0.7745966692/
25 data wgt(3,1),wgt(3,2),wgt(3,3)/ &
26 0.5555555555, &
27 0.8888888888, &
28 0.5555555555/
29 ! end of this module
30end module gauss_integration
This module provides data for gauss quadrature.
Definition: GaussM.f90:6
real(kind=kreal), dimension(3, 3) wgt
wieght of gauss points
Definition: GaussM.f90:10
real(kind=kreal), dimension(3, 3) xg
abscissa of gauss points
Definition: GaussM.f90:9
Definition: hecmw.f90:6