home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / fftpack / cfftf.f < prev    next >
Text File  |  1996-09-28  |  260b  |  10 lines
  1.       subroutine cfftf (n,c,wsave)
  2.       implicit double precision (a-h,o-z)
  3.       dimension       c(1)       ,wsave(1)
  4.       if (n .eq. 1) return
  5.       iw1 = n+n+1
  6.       iw2 = iw1+n+n
  7.       call cfftf1 (n,c,wsave,wsave(iw1),wsave(iw2))
  8.       return
  9.       end
  10.