source: lmdz_wrf/WRFV3/external/fftpack/fftpack5/mcfti1.F @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 1.2 KB
Line 
1!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
2!                                                                       
3!   FFTPACK 5.0                                                         
4!                                                                       
5!   Authors:  Paul N. Swarztrauber and Richard A. Valent               
6!                                                                       
7!   $Id: mcfti1.f,v 1.2 2004/06/15 21:29:19 rodney Exp $               
8!                                                                       
9!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
10                                                                       
11      SUBROUTINE MCFTI1 (N,WA,FNF,FAC)
12      REAL            WA(*),FAC(*)
13!                                                                       
14      CALL FACTOR (N,NF,FAC)
15      FNF = NF
16      IW = 1
17      L1 = 1
18      DO 110 K1=1,NF
19         IP = FAC(K1)
20         L2 = L1*IP
21         IDO = N/L2
22         CALL TABLES (IDO,IP,WA(IW))
23         IW = IW+(IP-1)*(IDO+IDO)
24         L1 = L2
25  110 END DO
26      RETURN
27      END                                           
Note: See TracBrowser for help on using the repository browser.