sort_d_d_d_i Subroutine

private pure subroutine sort_d_d_d_i(arr, arr2, arr3, arr4, 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(:)
real(kind=dp),	intent(inout)			::	arr3(:)
integer(kind=int32),	intent(inout)			::	arr4(:)
integer,	intent(in),	optional		::	nskip
integer,	intent(out),	optional		::	par

Contents