ply_fpt_test Program

Uses

  • program~~ply_fpt_test~~UsesGraph program~ply_fpt_test ply_fpt_test env_module env_module program~ply_fpt_test->env_module module~ply_fpt_header_module ply_fpt_header_module program~ply_fpt_test->module~ply_fpt_header_module module~ply_legfpt_module ply_legFpt_module program~ply_fpt_test->module~ply_legfpt_module module~ply_modg_basis_module ply_modg_basis_module program~ply_fpt_test->module~ply_modg_basis_module tem_general_module tem_general_module program~ply_fpt_test->tem_general_module tem_logging_module tem_logging_module program~ply_fpt_test->tem_logging_module tem_param_module tem_param_module program~ply_fpt_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_fpt_test~~CallsGraph program~ply_fpt_test ply_fpt_test fin_env fin_env program~ply_fpt_test->fin_env proc~ply_check_legtopnt~2 ply_check_legToPnt program~ply_fpt_test->proc~ply_check_legtopnt~2 tem_start tem_start program~ply_fpt_test->tem_start proc~ply_fpt_header_define ply_fpt_header_define proc~ply_check_legtopnt~2->proc~ply_fpt_header_define proc~ply_init_legfpt ply_init_legFpt proc~ply_check_legtopnt~2->proc~ply_init_legfpt proc~ply_legendre_1d ply_legendre_1D proc~ply_check_legtopnt~2->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 :: iDegree
integer :: iBSize
real(kind=rk) :: res
real(kind=rk) :: newRes
type(tem_general_type) :: general
integer, parameter :: nDegrees = 14
integer, parameter :: degree(nDegrees) = [1, 2, 3, 4, 5, 9, 31, 63, 71, 72, 107, 127, 179, 255]
integer, parameter :: nBSizes = 3
integer, parameter :: blocksize(nBSizes) = [36, 37, 64]

Subroutines

subroutine ply_check_legToPnt(blocksize, maxPolyDegree, res)

do iPoint = 1, maxPolyDegree+1 write(,) 'Point: ', chebPnt(iPoint), & & ' FPT: ', pntVal(iPoint), & & ' Ref.: ', refVal(iPoint), & & ' error: ', pntVal(iPoint)-refVal(iPoint) end do

Arguments

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