quicksortreal Subroutine

public recursive subroutine quicksortreal(list, val)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(inout)			::	list(:)
real(kind=real64),	intent(inout),	optional		::	val(:)