diff options
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)); |