sort_a_i Subroutine

private pure subroutine sort_a_i(arr, nskip, par)

a is the pivot value

Arguments

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