sort_a_d Subroutine

private pure subroutine sort_a_d(arr, nskip, par)

a is the pivot value

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	arr(:,:)
integer,	intent(in),	optional		::	nskip
integer,	intent(out),	optional		::	par

Contents