Changeset 40 for include/fflas-ffpack/fflas_ftrmm_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_ftrmm_src.inl (modified) (2 diffs)

include/fflas-ffpack/fflas_ftrmm_src.inl

@@ -155 +155 @@
         if (!M || !N ) return;
         
-        static typename Field::Element one, Mone;
+        static typename Field::Element one;
         F.init(one, 1.0);
-        F.neg(Mone, one);
         
         size_t nsplit = DotProdBound (F, 0, one,
@@ -206 +205 @@
                  typename Field::Element * B, const size_t ldb) {
         
-        static typename Field::Element Mone;
         static typename Field::Element one;
         F.init(one, 1.0);
-        F.neg(Mone,one);
         if (__FFLAS__Na == 1)
 #ifdef __FFLAS__NONUNIT