diff options
Diffstat (limited to 'src/matrixOperations/division')
-rw-r--r-- | src/matrixOperations/division/cldivma.c | 2 | ||||
-rw-r--r-- | src/matrixOperations/division/crdivma.c | 2 | ||||
-rw-r--r-- | src/matrixOperations/division/dldivma.c | 2 | ||||
-rw-r--r-- | src/matrixOperations/division/drdivma.c | 2 | ||||
-rw-r--r-- | src/matrixOperations/division/sldivma.c | 2 | ||||
-rw-r--r-- | src/matrixOperations/division/srdivma.c | 2 | ||||
-rw-r--r-- | src/matrixOperations/division/zldivma.c | 5 | ||||
-rw-r--r-- | src/matrixOperations/division/zrdivma.c | 2 |
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> |