[Matlisp-commit] [matlisp-git]matlisp branch matlisp-cffi updated. 2012-02-23-60-g514db2b

[Akshay S. <ak...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "matlisp".

The branch, matlisp-cffi has been updated
       via  514db2b95e68cd882d51d9a6d603fc24b6f0b2bb (commit)
      from  41f86e07e1ab87c390f9e570bd51ce57ac2d4d6f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 514db2b95e68cd882d51d9a6d603fc24b6f0b2bb
Author: Akshay Srinivasan <aks...@gm...>
Date:   Sun Mar 18 19:57:04 2012 +0530

    More trivial fixes for gemm.lisp

diff --git a/src/gemm.lisp b/src/gemm.lisp
index 99c183c..97dbb6c 100644
--- a/src/gemm.lisp
+++ b/src/gemm.lisp
@@ -249,7 +249,7 @@
 		  (beta number) (c complex-matrix)
 		  &optional (job :nn))
   (scal! (complex-coerce beta) c)
-  (gemm! alpha a b 1d0 (realpart! c))
+  (gemm! alpha a b 1d0 (realpart! c) job)
   c)
 
 ;
@@ -257,7 +257,7 @@
 		  (beta complex) (c complex-matrix)
 		  &optional (job :nn))
   (scal! (complex-coerce beta) c)
-  (gemm! alpha a b 1d0 c))
+  (gemm! alpha a b 1d0 c job))
 
 (defmethod gemm! ((alpha cl:real) (a real-matrix) (b complex-matrix)
 		  (beta cl:real) (c complex-matrix)
@@ -297,7 +297,7 @@
 		  (beta complex) (c complex-matrix)
 		  &optional (job :nn))
   (scal! (complex-coerce beta) c)
-  (gemm! alpha a b 1d0 c))
+  (gemm! alpha a b 1d0 c job))
 
 (defmethod gemm! ((alpha cl:real) (a complex-matrix) (b real-matrix)
 		  (beta cl:real) (c complex-matrix)
@@ -310,8 +310,8 @@
 	(r-be (coerce beta 'double-float)))
     (declare (type real-matrix r-a i-a r-c i-c)
 	     (type double-float r-al r-be))
-    (real-double-gemm!-typed r-al r-a r-b r-be r-c job)
-    (real-double-gemm!-typed r-al i-a r-b r-be i-c job)))
+    (real-double-gemm!-typed r-al r-a b r-be r-c job)
+    (real-double-gemm!-typed r-al i-a b r-be i-c job)))
 
 (defmethod gemm! ((alpha complex) (a complex-matrix) (b real-matrix)
 		  (beta cl:real) (c complex-matrix)

-----------------------------------------------------------------------

Summary of changes:
 src/gemm.lisp |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)


hooks/post-receive
-- 
matlisp