ply_polyBaseExc_test Program

Uses

  • program~~ply_polybaseexc_test~~UsesGraph program~ply_polybaseexc_test ply_polyBaseExc_test env_module env_module program~ply_polybaseexc_test->env_module module~ply_polybaseexc_module ply_polyBaseExc_module program~ply_polybaseexc_test->module~ply_polybaseexc_module module~ply_polybaseexc_module->env_module iso_c_binding iso_c_binding module~ply_polybaseexc_module->iso_c_binding module~fftw_wrap fftw_wrap module~ply_polybaseexc_module->module~fftw_wrap module~ply_fpt_header_module ply_fpt_header_module module~ply_polybaseexc_module->module~ply_fpt_header_module tem_float_module tem_float_module module~ply_polybaseexc_module->tem_float_module tem_gamma_module tem_gamma_module module~ply_polybaseexc_module->tem_gamma_module tem_logging_module tem_logging_module module~ply_polybaseexc_module->tem_logging_module tem_param_module tem_param_module module~ply_polybaseexc_module->tem_param_module module~fftw_wrap->iso_c_binding module~fftw_wrap->tem_logging_module tem_aux_module tem_aux_module module~fftw_wrap->tem_aux_module module~ply_fpt_header_module->env_module module~ply_fpt_header_module->tem_float_module module~ply_fpt_header_module->tem_logging_module aot_out_module aot_out_module module~ply_fpt_header_module->aot_out_module aotus_module aotus_module module~ply_fpt_header_module->aotus_module module~ply_nodes_header_module ply_nodes_header_module module~ply_fpt_header_module->module~ply_nodes_header_module module~ply_fpt_header_module->tem_aux_module tem_compileconf_module tem_compileconf_module module~ply_fpt_header_module->tem_compileconf_module tem_tools_module tem_tools_module module~ply_fpt_header_module->tem_tools_module module~ply_nodes_header_module->env_module

Testing functions from the polynomial base exchange module.


Calls

program~~ply_polybaseexc_test~~CallsGraph program~ply_polybaseexc_test ply_polyBaseExc_test proc~ply_lambda ply_lambda program~ply_polybaseexc_test->proc~ply_lambda

Variables

Type Attributes Name Initial
real(kind=rk), parameter :: max_deviation = 5.0E-15_rk
real(kind=rk) :: testnums(10) = [5._rk, 10._rk, 15._rk, 17._rk, 20._rk, 25._rk, 40._rk, 50._rk, 75._rk, 90._rk]
real(kind=rk) :: lam_res(10)
real(kind=rk) :: ref_lam(10) = [0.43618981487127939_rk, 0.31230114333906128_rk, 0.25605656734380250_rk, 0.24075907021388787_rk, 0.22221375806199573_rk, 0.19900256214091094_rk, 0.15762056118567075_rk, 0.14106825029753825_rk, 0.11527776545731630_rk, 0.10526295596826729_rk]
integer :: inum