Mercurial > octave-nkf

diff libcruft/fftpack/cfftf.f @ 7789:82be108cc558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First attempt at single precision tyeps * * * corrections to qrupdate single precision routines * * * prefer demotion to single over promotion to double * * * Add single precision support to log2 function * * * Trivial PROJECT file update * * * Cache optimized hermitian/transpose methods * * * Add tests for tranpose/hermitian and ChangeLog entry for new transpose code
author David Bateman <dbateman@free.fr>
date Sun, 27 Apr 2008 22:34:17 +0200
parents d20a2f261306
children
line wrap: on
line diff
--- a/libcruft/fftpack/cfftf.f	Wed May 14 18:09:56 2008 +0200
+++ b/libcruft/fftpack/cfftf.f	Sun Apr 27 22:34:17 2008 +0200
@@ -1,5 +1,4 @@
       subroutine cfftf (n,c,wsave)
-      implicit double precision (a-h,o-z)
       dimension       c(*)       ,wsave(*)
       if (n .eq. 1) return
       iw1 = n+n+1