WSJT-X/lib/sort.f

5 lines
82 B
Fortran

subroutine sort(n,arr)
call ssort(arr,tmp,n,1)
return
end