square_function Function

function square_function(x) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	x

Return Value real(kind=real64)