From fe69bed57f418892b670c250bd0436fcd39cf666 Mon Sep 17 00:00:00 2001
From: jofret
Date: Thu, 29 Jan 2009 09:35:28 +0000
Subject: Correct dgemm_ wrong args sequence

---
 src/matrixOperations/multiplication/dmulma.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/matrixOperations/multiplication')

diff --git a/src/matrixOperations/multiplication/dmulma.c b/src/matrixOperations/multiplication/dmulma.c
index 8c20960a..41e61535 100644
--- a/src/matrixOperations/multiplication/dmulma.c
+++ b/src/matrixOperations/multiplication/dmulma.c
@@ -37,8 +37,8 @@ void	dmulma(double *in1, int lines1, int columns1,
   double Zero		= 0;
 
   /* Cr <-  1*Ar*Br + 0*Cr */
-  dgemm_("N","N", &columns2, &columns2, &columns1, &One,
-	 in1 , &lines1, in2, &lines2, &Zero, out, &columns2);
+  dgemm_("N","N", &lines1, &columns2, &columns1, &One,
+	 in1 , &lines1, in2, &lines2, &Zero, out, &lines1);
 #else
   /*
   ** DO NOT USE ANY BLAS FUNCTION.
-- 
cgit