my_gamma Function

public recursive function my_gamma(a) result(g)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in)			::	a

Return Value real(kind=r_2)