FEDEM Solver
R8.0
Source code of the dynamics solver
|
Module with subroutines for searching and sorting of arrays. More...
Functions/Subroutines | |
subroutine | findmaxrealvalues (values, indMax, valMax, ierr) |
Finds indices of the largest values in the given real array. More... | |
subroutine | quicksortint (values, indval, ierr) |
Sorts an integer array in increasing order. More... | |
recursive subroutine, private | quicksortintarray (indexArray, valueArray, lIndex, rIndex) |
Sorts an integer array in increasing order. More... | |
Module with subroutines for searching and sorting of arrays.
subroutine searchandsortmodule::findmaxrealvalues | ( | real(dp), dimension(:), intent(in) | values, |
integer, dimension(:), intent(out) | indMax, | ||
real(dp), dimension(:), intent(out), optional | valMax, | ||
integer, intent(out), optional | ierr | ||
) |
Finds indices of the largest values in the given real array.
subroutine searchandsortmodule::quicksortint | ( | integer, dimension(:), intent(inout) | values, |
integer, dimension(:), intent(out), optional, target | indval, | ||
integer, intent(out), optional | ierr | ||
) |
Sorts an integer array in increasing order.
The actual permutation is returned.
|
private |
Sorts an integer array in increasing order.