[lisplab-cvs] r154 - trunk/src/matrix

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Thu May 13 09:28:51 2010
New Revision: 154

Log:
bugfix

Modified:
   trunk/src/matrix/store-ordinary-functions.lisp

Modified: trunk/src/matrix/store-ordinary-functions.lisp
==============================================================================
--- trunk/src/matrix/store-ordinary-functions.lisp	(original)
+++ trunk/src/matrix/store-ordinary-functions.lisp	Thu May 13 09:28:51 2010
@@ -210,8 +210,8 @@
 ;;; Copies contents from real to complex
 (defun copy_dfa-to-cdfa (a out)
   (declare (type type-blas-store a out))
-  (dotimes (i (floor (length a) 2))
+  (dotimes (i (length a))
     (let* ((2i (* 2 i)))
       (declare (type type-blas-idx i 2i))    
-      (setf (aref out 2i) (aref a 2i))))
+      (setf (aref out 2i) (aref a i))))
   out)