set_a Function

private function set_a(a)

Arguments

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

Return Value real(kind=pr)