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