Mercurial > octave
comparison libcruft/fftpack/cfftb1.f @ 1645:44ed237bdc1e
[project @ 1995-12-14 08:32:49 by jwe]
| author | jwe |
|---|---|
| date | Thu, 14 Dec 1995 08:33:32 +0000 |
| parents | 395bb6d6c096 |
| children | 82be108cc558 |
comparison
equal
deleted
inserted
replaced
| 1644:395bb6d6c096 | 1645:44ed237bdc1e |
|---|---|
| 1 subroutine cfftb1 (n,c,ch,wa,ifac) | 1 subroutine cfftb1 (n,c,ch,wa,ifac) |
| 2 implicit double precision (a-h,o-z) | 2 implicit double precision (a-h,o-z) |
| 3 dimension ch(1) ,c(1) ,wa(1) ,ifac(1) | 3 dimension ch(*) ,c(*) ,wa(*) ,ifac(*) |
| 4 nf = ifac(2) | 4 nf = ifac(2) |
| 5 na = 0 | 5 na = 0 |
| 6 l1 = 1 | 6 l1 = 1 |
| 7 iw = 1 | 7 iw = 1 |
| 8 do 116 k1=1,nf | 8 do 116 k1=1,nf |