WSJT-X/lib/sort.f90

5 lines
78 B
Fortran

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