ply_ifpt_test Program

Uses

  • program~~ply_ifpt_test~~UsesGraph program~ply_ifpt_test ply_ifpt_test env_module env_module program~ply_ifpt_test->env_module module~ply_fpt_header_module ply_fpt_header_module program~ply_ifpt_test->module~ply_fpt_header_module module~ply_legfpt_module ply_legFpt_module program~ply_ifpt_test->module~ply_legfpt_module module~ply_modg_basis_module ply_modg_basis_module program~ply_ifpt_test->module~ply_modg_basis_module tem_general_module tem_general_module program~ply_ifpt_test->tem_general_module tem_logging_module tem_logging_module program~ply_ifpt_test->tem_logging_module tem_param_module tem_param_module program~ply_ifpt_test->tem_param_module module~ply_fpt_header_module->env_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 tem_aux_module tem_aux_module module~ply_fpt_header_module->tem_aux_module tem_compileconf_module tem_compileconf_module module~ply_fpt_header_module->tem_compileconf_module tem_float_module tem_float_module module~ply_fpt_header_module->tem_float_module tem_tools_module tem_tools_module module~ply_fpt_header_module->tem_tools_module module~ply_legfpt_module->env_module module~ply_legfpt_module->module~ply_fpt_header_module iso_c_binding iso_c_binding module~ply_legfpt_module->iso_c_binding module~fftw_wrap fftw_wrap module~ply_legfpt_module->module~fftw_wrap module~ply_polybaseexc_module ply_polyBaseExc_module module~ply_legfpt_module->module~ply_polybaseexc_module module~ply_legfpt_module->tem_compileconf_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~fftw_wrap->tem_logging_module module~fftw_wrap->iso_c_binding module~fftw_wrap->tem_aux_module module~ply_dof_module->env_module module~ply_nodes_header_module->env_module module~ply_polybaseexc_module->env_module module~ply_polybaseexc_module->module~ply_fpt_header_module module~ply_polybaseexc_module->tem_logging_module module~ply_polybaseexc_module->tem_param_module module~ply_polybaseexc_module->iso_c_binding module~ply_polybaseexc_module->module~fftw_wrap module~ply_polybaseexc_module->tem_float_module tem_gamma_module tem_gamma_module module~ply_polybaseexc_module->tem_gamma_module module~ply_space_integration_module->env_module module~ply_space_integration_module->tem_param_module

Unit test to check functionallity of fast polynomial transformations. \author{Jens Zudrop}


Calls

program~~ply_ifpt_test~~CallsGraph program~ply_ifpt_test ply_ifpt_test fin_env fin_env program~ply_ifpt_test->fin_env proc~ply_check_pnttoleg ply_check_pntToLeg program~ply_ifpt_test->proc~ply_check_pnttoleg tem_start tem_start program~ply_ifpt_test->tem_start proc~ply_fpt_header_define ply_fpt_header_define proc~ply_check_pnttoleg->proc~ply_fpt_header_define proc~ply_init_legfpt ply_init_legFpt proc~ply_check_pnttoleg->proc~ply_init_legfpt proc~ply_legendre_1d ply_legendre_1D proc~ply_check_pnttoleg->proc~ply_legendre_1d tem_abort tem_abort proc~ply_fpt_header_define->tem_abort proc~fftw_plan_many_r2r fftw_plan_many_r2r proc~ply_init_legfpt->proc~fftw_plan_many_r2r proc~fftw_plan_r2r_1d fftw_plan_r2r_1d proc~ply_init_legfpt->proc~fftw_plan_r2r_1d proc~ply_fpt_init ply_fpt_init proc~ply_init_legfpt->proc~ply_fpt_init proc~ply_l ply_l proc~ply_fpt_init->proc~ply_l proc~ply_l_int ply_l_int proc~ply_fpt_init->proc~ply_l_int proc~ply_m ply_m proc~ply_fpt_init->proc~ply_m proc~ply_m_int ply_m_int proc~ply_fpt_init->proc~ply_m_int

Variables

Type Attributes Name Initial
integer :: iPower
real(kind=rk) :: res
real(kind=rk) :: newRes
type(tem_general_type) :: general

Subroutines

subroutine ply_check_pntToLeg(power, res)

do iPoly = 1, maxPolyDegree+1 write(,) 'Poly degree: ', iPoly, & & ' iFPT: ', legVal(iPoly), & & ' Ref.: ', legCoeffs(iPoly), & & ' error: ', legVal(iPoly)-legCoeffs(iPoly) end do

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: power
real(kind=rk), intent(out) :: res