SUBROUTINE SINQI (N,WSAVE) DIMENSION WSAVE(1) CALL COSQI (N,WSAVE) RETURN END