WSJT-X/map65/libm65/sort.f90

7 lines
82 B
Fortran

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