merge_argsort_double Subroutine

public subroutine merge_argsort_double(a, idx)

arg sorts integer array A

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=long),	intent(inout)			::	a(:)
integer,	intent(inout)			::	idx(size(a,1))