Changeset 40 for include/fflas-ffpack/fflas_ftrsm_src.inl

Timestamp:

08/28/07 18:01:02 (1 year ago)

Author:

pernet

Message:

(hopefully) last bug fix for ftrsm ftrmm new algorithm, + linbox related tweaks.

Files:

• include/fflas-ffpack/fflas_ftrsm_src.inl (modified) (1 diff)

include/fflas-ffpack/fflas_ftrsm_src.inl

@@ -221 +221 @@
 #ifdef __FFLAS__RIGHT
                 fgemm (D, FflasNoTrans, Mjoin (Fflas, __FFLAS__TRANS), __FFLAS__Mb2, __FFLAS__Nb2, nsplit,
-                       Mone, __FFLAS__B1, ldb, __FFLAS__A2, lda, one, __FFLAS__B2, ldb);
+                       -1.0, __FFLAS__B1, ldb, __FFLAS__A2, lda, one, __FFLAS__B2, ldb);
 #else
                 fgemm (D, Mjoin (Fflas, __FFLAS__TRANS), FflasNoTrans, __FFLAS__Mb2, __FFLAS__Nb2, nsplit,
-                       Mone, __FFLAS__A2, lda, __FFLAS__B1, ldb, one, __FFLAS__B2, ldb);
+                       -1.0, __FFLAS__A2, lda, __FFLAS__B1, ldb, one, __FFLAS__B2, ldb);
 #endif