inamuroDelta1D Function

private function inamuroDelta1D(r) result(res)

This function calculates the delta function used in the paper of Ota et al. [7] (bibliography of treelm) for a single value. $$w(r) = \left\{ \begin{array}{ll} \frac{1}{8}\left ( 3-2|r|+\sqrt{1+4|r| -4r^{2}} \right )& , |r| \le 1 \\ \frac{1}{8}\left ( 5-2|r|+\sqrt{-7+12|r|-4r^{2}} \right )& , 1 \le |r| \le 2 \\ 0& , else \end{array} \right.$$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	r	input point coordinate

Return Value real(kind=rk)

resulting value of the 1D delta function

Contents

Variables

r_abs

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=rk),	private		::	r_abs