mod_gauss.f90

Go to the documentation of this file.

module mod_gauss
  
  use itm_types

  implicit none
  
  real(r8), dimension(4) :: xgauss, wgauss
  real(r8), dimension(4, 4, 4, 4) :: h, hr, hs, hrs
  
end module mod_gauss