subroutine dsinqi (n,wsave)
      double precision wsave(1)
c
      call dcosqi (n,wsave)
c
      return
      end