compute_weight Subroutine

private subroutine compute_weight(weights, nFoundSources, neighDir, targetBary, intp_config, cxDirRK)

This routine computes weights for weighted_average interpolation.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(out),		allocatable	::	weights(:)	computed weight
integer,	intent(in)			::	nFoundSources	Number of source elements found
integer,	intent(in)			::	neighDir(nFoundSources)	cxDir for found sounce elements
real(kind=rk),	intent(in)			::	targetBary(3)	child bary relative to parent
type(mus_interpolation_config_type),	intent(in)			::	intp_config	Interpolation config info
real(kind=rk),	intent(in)			::	cxDirRK(:,:)	cxDir of current source