diff options
| author | Sunil Shetye | 2019-05-17 17:30:07 +0530 |
|---|---|---|
| committer | Sunil Shetye | 2019-05-29 11:08:06 +0530 |
| commit | 716c7a821a76e65bff30d0292095c585e37c3ac0 (patch) | |
| tree | e56be10d77d70990c749b139d063b6bda69523ec /src/c/linearAlgebra/qr | |
| parent | 953447ba5cd043470d0f35c8a780e1b4c4d0aebf (diff) | |
| download | scilab2c-master.tar.gz scilab2c-master.tar.bz2 scilab2c-master.zip | |
Diffstat (limited to 'src/c/linearAlgebra/qr')
| -rw-r--r-- | src/c/linearAlgebra/qr/dqra.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/c/linearAlgebra/qr/dqra.c b/src/c/linearAlgebra/qr/dqra.c index bae4bc27..42912a90 100644 --- a/src/c/linearAlgebra/qr/dqra.c +++ b/src/c/linearAlgebra/qr/dqra.c @@ -19,6 +19,8 @@ #include "lapack.h" #include "string.h" #include "matrixTranspose.h" +#include "max.h" +#include "min.h" /*For reference check Scilab source code & lapack library websites Names of variable are almost same for convience. @@ -153,8 +155,6 @@ double dqra(int ninp,int nout,double *inp1,int M,int N,double tol,double *out1,d [Q,R]=qr(A) [Q,R,E]=qr(A) */ - int LDA = M; - double *TAU; TAU = (double *)malloc(min(M,N)*sizeof(double)); |