get_a Function

private function get_a(X)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	X

Return Value real(kind=pr)