1 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
5 ! Authors: Paul N. Swarztrauber and Richard A. Valent
7 ! $Id: sinq1b.f,v 1.2 2004/06/15 21:29:20 rodney Exp $
9 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
11 SUBROUTINE SINQ1B ( N, INC, X, LENX, WSAVE, LENSAV, &
13 INTEGER N, INC, LENX, LENSAV, LENWRK, IER
14 REAL X(INC,*), WSAVE(LENSAV), WORK(LENWRK)
18 IF (LENX .LT. INC*(N-1) + 1) THEN
20 CALL XERFFT ('SINQ1B', 6)
21 ELSEIF (LENSAV .LT. 2*N + INT(LOG(REAL(N))) +4) THEN
23 CALL XERFFT ('SINQ1B', 8)
24 ELSEIF (LENWRK .LT. N) THEN
26 CALL XERFFT ('SINQ1B', 10)
29 IF (N .GT. 1) GO TO 101
36 CALL COSQ1B (N,INC,X,LENX,WSAVE,LENSAV,WORK,LENWRK,IER1)
39 CALL XERFFT ('SINQ1B',-5)