GaussM.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
module gauss_integration
  use hecmw
  implicit none
  real(kind=kreal) :: xg(3, 3) 
  real(kind=kreal) :: wgt(3, 3) 
  !****************************
  !* Gauss Integration Table **
  !****************************
  !** 1st ***
  data xg(1,1)/0.0/
  data wgt(1,1)/2.0/
  !** 2nd ***
  data xg(2,1),xg(2,2)/-0.577350269189626,0.577350269189626/
  data wgt(2,1),wgt(2,2)/1.0,1.0/
  !** 3rd ***
  data xg(3,1),xg(3,2),xg(3,3)/  &
    -0.7745966692,               &
    0.0,                         &
    0.7745966692/
  data wgt(3,1),wgt(3,2),wgt(3,3)/ &
    0.5555555555,                  &
    0.8888888888,                  &
    0.5555555555/
  ! end of this module
end module gauss_integration