ply_split_legendre_test_prog Program

Uses

  • program~~ply_split_legendre_test_prog~~UsesGraph program~ply_split_legendre_test_prog ply_split_legendre_test_prog env_module env_module program~ply_split_legendre_test_prog->env_module module~ply_modg_basis_module ply_modg_basis_module program~ply_split_legendre_test_prog->module~ply_modg_basis_module module~ply_split_legendre_module ply_split_legendre_module program~ply_split_legendre_test_prog->module~ply_split_legendre_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_split_legendre_module->env_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

Calls

program~~ply_split_legendre_test_prog~~CallsGraph program~ply_split_legendre_test_prog ply_split_legendre_test_prog proc~ply_legendre_1d ply_legendre_1D program~ply_split_legendre_test_prog->proc~ply_legendre_1d proc~ply_split_legendre_matrix ply_split_legendre_matrix program~ply_split_legendre_test_prog->proc~ply_split_legendre_matrix proc~ply_split_legendre_test ply_split_legendre_test program~ply_split_legendre_test_prog->proc~ply_split_legendre_test proc~alpha alpha proc~ply_split_legendre_matrix->proc~alpha proc~alpha_beta alpha_beta proc~ply_split_legendre_matrix->proc~alpha_beta proc~alpha_frac alpha_frac proc~ply_split_legendre_matrix->proc~alpha_frac proc~beta beta proc~ply_split_legendre_matrix->proc~beta proc~ply_split_legendre_test->proc~ply_split_legendre_matrix proc~ply_split_legendre_test->proc~alpha proc~ply_split_legendre_test->proc~alpha_beta proc~ply_split_legendre_test->proc~alpha_frac proc~ply_split_legendre_test->proc~beta

Variables

Type Attributes Name Initial
integer, parameter :: nModes = 30
integer, parameter :: nPoints = nModes
integer, parameter :: nOps = nModes**2
real(kind=rk), parameter :: tolerance = nOps*epsilon(1.0_rk)
logical :: success
logical :: matching_right
logical :: matching_left
integer :: iMode
integer :: iPoint
real(kind=rk) :: parentval
real(kind=rk) :: childval
real(kind=rk) :: parentmode(nModes)
real(kind=rk) :: childmode(nModes)
real(kind=rk) :: legparent(nModes,nPoints)
real(kind=rk) :: legchild(nModes,nPoints)
real(kind=rk) :: xi(nPoints)
real(kind=rk) :: x(nPoints)
real(kind=rk) :: split_matrix(nModes,nModes)