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
|
