diff --git a/src/bmge/Eigen.java b/src/bmge/Eigen.java index 34f7516f14232dd480d45558168abda9786571c4..4bbdb5a9fd9f9c2a190bce0842a1e44779fd236e 100644 --- a/src/bmge/Eigen.java +++ b/src/bmge/Eigen.java @@ -149,13 +149,13 @@ public class Eigen { V[n_1][i] = V[i][i]; V[i][i] = 1; i1 = i+1; - if ( (h=d[(i1)]) != 0.0 ) { + if ( (h=d[i1]) != 0.0 ) { k = i1; while ( --k >= 0 ) d[k] = V[k][i1] / h; j = i1; while ( --j >= 0 ) { g = 0; k = i1; while ( --k >= 0 ) g += V[k][i1] * V[k][j]; - i = i1; while ( --k >= 0 ) V[k][j] -= g * d[k]; + k = i1; while ( --k >= 0 ) V[k][j] -= g * d[k]; } } k = i1; while ( --k >= 0 ) V[k][i1] = 0;