subroutine ssinqi (n,wsave)
      real wsave(1)
c
      call scosqi (n,wsave)
c
      return
      end