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