integrateLeg_test Program

Uses

  • program~~integrateleg_test~~UsesGraph program~integrateleg_test integrateLeg_test env_module env_module program~integrateleg_test->env_module module~ply_modg_basis_module ply_modg_basis_module program~integrateleg_test->module~ply_modg_basis_module module~ply_modg_basis_module->env_module module~ply_dof_module ply_dof_module module~ply_modg_basis_module->module~ply_dof_module module~ply_space_integration_module ply_space_integration_module module~ply_modg_basis_module->module~ply_space_integration_module module~ply_dof_module->env_module module~ply_space_integration_module->env_module tem_param_module tem_param_module module~ply_space_integration_module->tem_param_module

Testing the integration of Legendre Polynomials.


Calls

program~~integrateleg_test~~CallsGraph program~integrateleg_test integrateLeg_test proc~bico bico program~integrateleg_test->proc~bico proc~ply_integrateleg ply_integrateLeg program~integrateleg_test->proc~ply_integrateleg proc~ply_legendre_1d ply_legendre_1D program~integrateleg_test->proc~ply_legendre_1d

Variables

Type Attributes Name Initial
real(kind=rk), allocatable :: integrand(:)
real(kind=rk), allocatable :: integral(:)
real(kind=rk), allocatable :: evalatends(:,:)
real(kind=rk), allocatable :: asserted_half(:)
real(kind=rk) :: halfint
real(kind=rk) :: signfact
integer, parameter :: maxdegree = 10
integer :: iMode
integer :: nEven
logical :: check_ok

Functions

elemental function bico(n, k) result(b)

Compute the binomial n over k

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
integer, intent(in) :: k

Return Value real(kind=rk)