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_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


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