5 lines
140 B
FortranFixed
5 lines
140 B
FortranFixed
|
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.
|