sort_a_d_d Subroutine

private pure subroutine sort_a_d_d(arr, arr2, nskip, par)

a is the pivot value

Arguments

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

Contents