QPMS
/
qpms
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add residual to solver (fix regression from 087cd1c)

This commit is contained in:
Kristian Arjas 2021-09-15 13:40:20 +03:00 committed by Marek Nečada
parent 572e15edbb
commit 50a5aa11a6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
qpms/beyn.c
View File

@ -485,10 +485,10 @@ static int beyn_process_matrices(BeynSolver *solver, beyn_function_M_t M_functio
if (res_tol > 0 && residual > res_tol) continue; if (res_tol > 0 && residual > res_tol) continue;
eigenvalues[KRetained] = z; eigenvalues[KRetained] = z;
if(eigenvectors) { if(eigenvectors) { // eigenvectors is NULL when calculating the "coarse" contour for error estimates
for(int j = 0; j < m; ++j) for(int j = 0; j < m; ++j)
MAT(eigenvectors, l, m, KRetained, j) = MAT(V0S, m, K, j, k); MAT(eigenvectors, l, m, KRetained, j) = MAT(V0S, m, K, j, k);
solver->residuals[KRetained] = residual;
} }
++KRetained; ++KRetained;
} }