WSJT-X/sort.f

5 lines
86 B
Fortran

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