rargsort_original Function

private function rargsort_original(a) result(b)

Arguments

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

Return Value integer, (size(a))