Context Navigation

sint1b.F @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 1.9 KB

Line
1	!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
2	!
3	! FFTPACK 5.0
4	!
5	! Authors: Paul N. Swarztrauber and Richard A. Valent
6	!
7	! $Id: sint1b.f,v 1.2 2004/06/15 21:29:20 rodney Exp $
8	!
9	!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
10
11	SUBROUTINE SINT1B ( N, INC, X, LENX, WSAVE, LENSAV, &
12	& WORK, LENWRK, IER)
13	INTEGER N, INC, LENX, LENSAV, LENWRK, IER
14	REAL X(INC,*), WSAVE(LENSAV), WORK(LENWRK)
15	!
16	IER = 0
17	!
18	IF (LENX .LT. INC*(N-1) + 1) THEN
19	IER = 1
20	CALL XERFFT ('SINT1B', 6)
21	GO TO 100
22	ELSEIF (LENSAV .LT. N/2 + N + INT(LOG(REAL(N))) +4) THEN
23	IER = 2
24	CALL XERFFT ('SINT1B', 8)
25	GO TO 100
26	ELSEIF (LENWRK .LT. (2*N+2)) THEN
27	IER = 3
28	CALL XERFFT ('SINT1B', 10)
29	GO TO 100
30	ENDIF
31	!
32	CALL SINTB1(N,INC,X,WSAVE,WORK,WORK(N+2),IER1)
33	IF (IER1 .NE. 0) THEN
34	IER = 20
35	CALL XERFFT ('SINT1B',-5)
36	ENDIF
37	!
38	100 CONTINUE
39	RETURN
40	END

Note: See TracBrowser for help on using the repository browser.