green_func Function

public function green_func(rc, r, nval)

Calculation of the Green function: $,\;$
$G_n(r_c;r)=-(2^{-n})(r/r_c)^n, r<r_c$
$G_n(r_c;r)=-(2^{-n})(r_c/r)^n, r\geq r_c$
$n=$nval

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in)			::	rc	Source radius
double precision,	intent(in)			::	r	Non-source radius
integer,	intent(in)			::	nval	Order number

Return Value doubleprecision