4 lines
140 B
Fortran
4 lines
140 B
Fortran
CALL ISORT@(b, a, n)
|
|
! n = number of elements
|
|
! a = array to be sorted
|
|
! b = array of indices of a. b(1) 'points' to the minimum value etc.
|