argSort Interface

public interface argSort

Use an indirect introspection sort on an array of numbers

Example usage

program argSortTest
use variableKind
use m_strings, only: str
use m_random, only: rngInteger, rngNormal
use m_arrays, only: arange, isSorted
use m_Sort, only: argSort
real(r64),allocatable :: d1D(:)
integer(i32),allocatable :: i1D(:)
integer(i32),allocatable :: indx(:)
integer(i32) :: i, N

N=10000
call allocate(indx, N)
call arange(indx, 1, N)
call allocate(d1D, N)
call rngNormal(d1D)
call argSort(d1D, indx)
write(*,'(a)') 'Double array is indirectly sorted? '//str(isSorted(d1D(indx)))

call arange(indx, 1, N)
call allocate(i1D,N)
call rngInteger(i1D)
call argSort(i1D, indx)
write(*,'(a)') 'Integer array is indirectly sorted? '//str(isSorted(i1D(indx)))
end program


Subroutines

public subroutine argSort_i1D(this, i, stable)

Interfaced with argSort

Arguments

Type IntentOptional AttributesName
integer(kind=i32) :: this(:)

1D array

integer(kind=i32) :: i(:)

Index to sort

logical, optional :: stable

Stable sort?

public subroutine argSort_id1D(this, i, stable)

Interfaced with argSort

Arguments

Type IntentOptional AttributesName
integer(kind=i64) :: this(:)

1D array

integer(kind=i32) :: i(:)

Index to sort

logical, optional :: stable

Stable sort?

public subroutine argSort_r1D(this, i, stable)

Interfaced with argSort

Arguments

Type IntentOptional AttributesName
real(kind=r32) :: this(:)

1D array

integer(kind=i32) :: i(:)

Index to sort

logical, optional :: stable

Stable sort?

public subroutine argSort_d1D(this, i, stable)

Interfaced with argSort

Arguments

Type IntentOptional AttributesName
real(kind=r64) :: this(:)

1D array

integer(kind=i32) :: i(:)

Index to sort

logical, optional :: stable

Stable sort?


allocate allocate_test appendString arange argInsertionsort argMedianOf3 argPartition argSelect argSort array1D_test binarySearch checkIsOpen closeFile compact compare compare_d1 copy copy_test countEntries crossproduct cumprod cumsum dArgDynamicArray dArgDynamicArray_test daysInMonth daysInYear dDynamicArray dDynamicArray_test deallocate debug debug_s deleteFile diff eMsg fastTwoDiff fastTwoSum fErr fileExists fileIO_test geometricMean getExtension getFileSize getNFileLines getRandomSeed hasExtension hasNentries iachar1D iArgDynamicArray iArgDynamicArray_test idArgDynamicArray idArgDynamicArray_test idDynamicArray idDynamicArray_test iDynamicArray iDynamicArray_test ind2sub indexing_test insertionsort integerBin intervalSearch isLeapYear isOpen isSorted isString KdTree KdTree_test lowerCase maths_test mean median medianOf3 mErr msg norm1 normI openBinaryFile openFile partition partition3way partition3way_d1D prependString Prng Prng_test ProgressBar project random_test rArgDynamicArray rArgDynamicArray_test rDynamicArray rDynamicArray_test read1Dble read1Integer readline readline reallocate reallocate_test removeComments repeat replacedelim rngExponential rngExponential_d1 rngExponential_d1D rngExponential_d2D rngExponential_d3D rngExponential_unscaled_d1 rngInteger rngInteger_i1 rngInteger_i1D rngInteger_i2D rngInteger_i3D rngNormal rngNormal_d1 rngNormal_d1D rngNormal_d2D rngNormal_d3D rngUniform rngUniform_d1 rngUniform_d1D rngUniform_d2D rngUniform_d3D rngUniform_xorshift rngWeibull rngWeibull_d1 rngWeibull_d1D rngWeibull_d2D rngWeibull_d3D secondsToHMS select select_test setPrng setPrng_withSeed setPrng_WOseed shuffle simpleSearch skipFileLines sort sorting_test std str strings_test sub2ind swap test tester time_test timeInSeconds timeToInteger trimExtension trimmedmean twoDiff twoSum upperCase variance wMsg writeline