diff --git a/src/lib/geogram/NL/nl_arpack.c b/src/lib/geogram/NL/nl_arpack.c index 290eaf7af0fc..9167990a78ae 100644 --- a/src/lib/geogram/NL/nl_arpack.c +++ b/src/lib/geogram/NL/nl_arpack.c @@ -392,6 +392,7 @@ void nlEigenSolve_ARPACK(void) { /********** Main ARPACK loop ***********/ + int nev_0 = nev; /* save the requested number of eigenvalues in case ARPack modifies the value of nev */ if(nlCurrentContext->verbose) { if(symmetric) { nl_printf("calling dsaupd()\n"); @@ -513,7 +514,8 @@ void nlEigenSolve_ARPACK(void) { /********** Copy to NL context *********/ - for(k=0; keigen_value[k] = d[kk]; for(i=0; i<(int)nlCurrentContext->nb_variables; ++i) {