Context Navigation

cost1b.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.8 KB

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

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