summaryrefslogtreecommitdiff
path: root/src/matrixOperations/division
diff options
context:
space:
mode:
Diffstat (limited to 'src/matrixOperations/division')
-rw-r--r--src/matrixOperations/division/cldivma.c2
-rw-r--r--src/matrixOperations/division/crdivma.c2
-rw-r--r--src/matrixOperations/division/dldivma.c2
-rw-r--r--src/matrixOperations/division/drdivma.c2
-rw-r--r--src/matrixOperations/division/sldivma.c2
-rw-r--r--src/matrixOperations/division/srdivma.c2
-rw-r--r--src/matrixOperations/division/zldivma.c5
-rw-r--r--src/matrixOperations/division/zrdivma.c2
8 files changed, 12 insertions, 7 deletions
diff --git a/src/matrixOperations/division/cldivma.c b/src/matrixOperations/division/cldivma.c
index 9e95b468..e24d5d65 100644
--- a/src/matrixOperations/division/cldivma.c
+++ b/src/matrixOperations/division/cldivma.c
@@ -10,6 +10,8 @@
*
*/
+#include <malloc.h>
+
/******FIXME********/
/**** WARNING NOT WORK AT ALL FOR THE MOMENT ***/
/**** Because of problem of conversion float-> double ****/
diff --git a/src/matrixOperations/division/crdivma.c b/src/matrixOperations/division/crdivma.c
index ba1850df..dea6741a 100644
--- a/src/matrixOperations/division/crdivma.c
+++ b/src/matrixOperations/division/crdivma.c
@@ -11,7 +11,7 @@
*/
-
+#include <malloc.h>
#include "matrixDivision.h"
#include "lapack.h"
#include <string.h>
diff --git a/src/matrixOperations/division/dldivma.c b/src/matrixOperations/division/dldivma.c
index 18c124c1..e69b86ef 100644
--- a/src/matrixOperations/division/dldivma.c
+++ b/src/matrixOperations/division/dldivma.c
@@ -12,7 +12,7 @@
-
+#include <malloc.h>
#include "matrixDivision.h"
#include "lapack.h"
#include <stdio.h>
diff --git a/src/matrixOperations/division/drdivma.c b/src/matrixOperations/division/drdivma.c
index 456cde6c..59734417 100644
--- a/src/matrixOperations/division/drdivma.c
+++ b/src/matrixOperations/division/drdivma.c
@@ -9,7 +9,7 @@
* http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
*
*/
-
+#include <malloc.h>
#include "matrixDivision.h"
#include "lapack.h"
#include <string.h>
diff --git a/src/matrixOperations/division/sldivma.c b/src/matrixOperations/division/sldivma.c
index 03c7eeab..86312823 100644
--- a/src/matrixOperations/division/sldivma.c
+++ b/src/matrixOperations/division/sldivma.c
@@ -10,7 +10,7 @@
*
*/
-
+#include <malloc.h>
#include "matrixDivision.h"
#include "lapack.h"
#include <string.h>
diff --git a/src/matrixOperations/division/srdivma.c b/src/matrixOperations/division/srdivma.c
index f1706ccd..b5773870 100644
--- a/src/matrixOperations/division/srdivma.c
+++ b/src/matrixOperations/division/srdivma.c
@@ -9,7 +9,7 @@
* http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
*
*/
-
+#include <malloc.h>
/****FIXME****/
/**** WARNING NOT WORK AT ALL FOR THE MOMENT ***/
/**** Because of problem of conversion float-> double ****/
diff --git a/src/matrixOperations/division/zldivma.c b/src/matrixOperations/division/zldivma.c
index c09a859e..9f58311f 100644
--- a/src/matrixOperations/division/zldivma.c
+++ b/src/matrixOperations/division/zldivma.c
@@ -11,9 +11,10 @@
*
*/
-
+#include <malloc.h>
#include "matrixDivision.h"
#include "string.h"
+#include "lapack.h"
void zldivma( doubleComplex* in1, int lines1, int columns1 ,
doubleComplex* in2, int lines2, int columns2 ,
@@ -71,6 +72,7 @@ void zldivma( doubleComplex* in1, int lines1, int columns1 ,
{
cNorm = 'F';
C2F(zlacpy)(&cNorm, &columns1, &columns1, in1, &columns1, pAf, &columns1);
+
C2F(zlacpy)(&cNorm, &columns1, &columns2, in2, &columns1, pXb, &columns1);
C2F(zgetrf)(&columns1, &columns1, pAf, &columns1, pIpiv, &iInfo);
if(iInfo == 0)
@@ -99,6 +101,7 @@ void zldivma( doubleComplex* in1, int lines1, int columns1 ,
memset(pJpvt, 0x00,(unsigned int) sizeof(int) * (unsigned int)columns1);
C2F(zgelsy)( &lines1, &columns1, &columns2, in1, &lines1, pXb, &iMax,
pJpvt, &dblRcond, &iRank, pDwork, &iWork, pRwork, &iInfo);
+
if(iInfo == 0)
{
diff --git a/src/matrixOperations/division/zrdivma.c b/src/matrixOperations/division/zrdivma.c
index ae51dd7a..bb684baa 100644
--- a/src/matrixOperations/division/zrdivma.c
+++ b/src/matrixOperations/division/zrdivma.c
@@ -9,7 +9,7 @@
* http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
*
*/
-
+#include <malloc.h>
#include "matrixDivision.h"
#include <string.h>