ply_init_l2p Subroutine

  1. ply_l2p_module.f90
  2. ply_l2p_module
  3. ply_init_l2p

public subroutine ply_init_l2p(l2p, header, degree)

Initialize the transformations via L2 projections.

Arguments

TypeIntentOptionalAttributesName
type(ply_l2p_type), intent(out) :: l2p
type(ply_l2p_header_type), intent(in) :: header
integer, intent(in) :: degree

Calls

proc~~ply_init_l2p~~CallsGraph proc~ply_init_l2p ply_init_l2p proc~ply_scalprodleg ply_scalProdLeg proc~ply_init_l2p->proc~ply_scalprodleg proc~ply_legendre_1d ply_legendre_1D proc~ply_init_l2p->proc~ply_legendre_1d proc~ply_gausslegpoints ply_gaussLegPoints proc~ply_init_l2p->proc~ply_gausslegpoints proc~ply_lagrange_1d ply_lagrange_1D proc~ply_init_l2p->proc~ply_lagrange_1d proc~ply_lagrange_define ply_lagrange_define proc~ply_init_l2p->proc~ply_lagrange_define proc~tem_abort tem_abort proc~ply_init_l2p->proc~tem_abort proc~ply_lagrange_mode_at ply_lagrange_mode_at proc~ply_lagrange_1d->proc~ply_lagrange_mode_at

Called by

proc~~ply_init_l2p~~CalledByGraph proc~ply_init_l2p ply_init_l2p proc~ply_poly_project_fillbody ply_poly_project_fillbody proc~ply_poly_project_fillbody->proc~ply_init_l2p proc~ply_fill_project_list ply_fill_project_list proc~ply_fill_project_list->proc~ply_poly_project_fillbody proc~test_project_stabviscnumflux test_project_stabViscNumFlux proc~test_project_stabviscnumflux->proc~ply_poly_project_fillbody proc~atl_initialize atl_initialize proc~atl_initialize->proc~ply_fill_project_list proc~atl_modg_kernel_utests atl_modg_kernel_utests proc~atl_modg_kernel_utests->proc~test_project_stabviscnumflux proc~atl_initialize_program atl_initialize_program proc~atl_initialize_program->proc~atl_initialize program~atl_harvesting atl_harvesting program~atl_harvesting->proc~atl_initialize

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iPoint
integer, private :: iDof
integer, private :: nDofs
integer, private :: nPoints
real(kind=rk), private, allocatable:: gaussp1D(:)
real(kind=rk), private, allocatable:: target_nodes(:)
real(kind=rk), private, allocatable:: leg_at_gauss(:,:)
real(kind=rk), private, allocatable:: lagrange_at_gauss(:,:)
real(kind=rk), private, allocatable:: weights1D(:)
real(kind=rk), private :: quad
real(kind=rk), private :: scalprod_q
type(ply_lagrange_type), private :: lagrange