ply_init_modg_covolumeCoeffs Subroutine

  1. ply_modg_basis_module.f90
  2. ply_modg_basis_module
  3. ply_init_modg_covolumeCoeffs

public subroutine ply_init_modg_covolumeCoeffs(nPoints, nFunc, integral)

Integral of combination of all anzatz functions for projection onto finer element

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: nPoints
integer, intent(in) :: nFunc
type(ply_modg_covolume_type), intent(out) :: integral

Calls

proc~~ply_init_modg_covolumecoeffs~~CallsGraph proc~ply_init_modg_covolumecoeffs ply_init_modg_covolumeCoeffs proc~ply_scalprodleg ply_scalProdLeg proc~ply_init_modg_covolumecoeffs->proc~ply_scalprodleg proc~ply_legendre_1d ply_legendre_1D proc~ply_init_modg_covolumecoeffs->proc~ply_legendre_1d proc~ply_gausslegpoints ply_gaussLegPoints proc~ply_init_modg_covolumecoeffs->proc~ply_gausslegpoints

Called by

proc~~ply_init_modg_covolumecoeffs~~CalledByGraph proc~ply_init_modg_covolumecoeffs ply_init_modg_covolumeCoeffs proc~atl_init_spacebasis atl_init_spacebasis proc~atl_init_spacebasis->proc~ply_init_modg_covolumecoeffs proc~atl_initialize atl_initialize proc~atl_initialize->proc~atl_init_spacebasis 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 program~ateles ateles program~ateles->proc~atl_initialize_program

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private, allocatable:: GaussPoints(:)
real(kind=rk), private, allocatable:: GaussPoints_left(:)
real(kind=rk), private, allocatable:: GaussPoints_right(:)

points and weights for gauss-legendre quadrature
real(kind=rk), private :: tempLeft(nPoints)
real(kind=rk), private :: tempRight(nPoints)
real(kind=rk), private :: sumLeft

Gaussian weights
real(kind=rk), private :: sumRight

Gaussian weights
real(kind=rk), private, allocatable:: w(:)

legendre polynomila values left on [-1;0]
real(kind=rk), private :: legendre_left(nFunc,nPoints)
real(kind=rk), private :: legendre_left_shifted(nFunc,nPoints)

legendre polynomila values right on [0;+1]
real(kind=rk), private :: legendre_right(nFunc,nPoints)
real(kind=rk), private :: legendre_right_shifted(nFunc,nPoints)
integer, private :: iFunc
integer, private :: jFunc