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