IFFT! Scaling Error

All,

1.  I noted a 1/N scaling error in IFFT! in the CVS code.  This was
    not present in my local working copy.  I suspect I caused this
    some time back and apologize.

2.  Can someone verify this change and update CVS?  The simple test 
    I used was (m:ifft! (m:fft (m:ones 8 3))) and (m:ifft! (m:fft (m:ones 8 1)))

3.  The diff's are...

*** /home/mak/src/matlisp/src/fft.lisp	2003-02-24 17:30:21.000000000 -0500
--- /usr/local/src/matlisp/src/fft.lisp	2004-04-02 14:07:09.000000000 -0500
***************
*** 395,401 ****
      (if (row-or-col-vector-p x)
  	(progn
  	  (zfftb n (store x) wsave)
! 	  x)
  
        ;; IFFT by column
        (scal! (/ (float n 1d0))
--- 395,401 ----
      (if (row-or-col-vector-p x)
  	(progn
  	  (zfftb n (store x) wsave)
! 	  (scal! (/ (float n 1d0)) x))
  
        ;; IFFT by column
        (scal! (/ (float n 1d0))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
tnx
mike


-------------------------------------------------------
This SF.Net email is sponsored by: IBM Linux Tutorials
Free Linux tutorial presented by Daniel Robbins, President and CEO of
GenToo technologies. Learn everything from fundamentals to system
administration.http://ads.osdn.com/?ad_id=1470&alloc_id=3638&op=click