ply_init_modg_covolumeCoeffs Subroutine

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_gausslegpoints ply_gaussLegPoints proc~ply_init_modg_covolumecoeffs->proc~ply_gausslegpoints 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

Contents


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