Commit 52fa569f authored by Stéphane Adjemian's avatar Stéphane Adjemian
Browse files

Changed default value of the tolerance parameter.

parent e097f7c8
...@@ -178,7 +178,7 @@ mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[]) ...@@ -178,7 +178,7 @@ mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
mwSize LDX = LDA; mwSize LDX = LDA;
mwSize LDWORK = max((mwSize) 7*((mwSize) 2*n + (mwSize) 1) + (mwSize) 16, (mwSize) 16*n); mwSize LDWORK = max((mwSize) 7*((mwSize) 2*n + (mwSize) 1) + (mwSize) 16, (mwSize) 16*n);
LDWORK = max(LDWORK, (mwSize) 2*n + p, (mwSize) 3*p); LDWORK = max(LDWORK, (mwSize) 2*n + p, (mwSize) 3*p);
double tolerance = -1.0; double tolerance = .0000000000000001;
lapack_int INFO; lapack_int INFO;
// Outputs of subroutine sb02OD // Outputs of subroutine sb02OD
double rcond; double rcond;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment