Files
WSJT-X/map65/libm65/sort.f90
T

7 lines
82 B
Fortran
Raw Normal View History

2017-01-10 16:48:12 +00:00
subroutine sort(n,arr)
call ssort(arr,tmp,n,1)
return
end subroutine sort