Lines Matching refs:ks
607 int ks;608 for (ks = p-1; ks >= k; ks--) {609 if (ks == k) {612 double t = (ks != p ? fabs(e[ks]) : 0.) +613 (ks != k+1 ? fabs(e[ks-1]) : 0.);614 if (fabs(s[ks]) <= tiny + eps*t) {615 s[ks] = 0.0;619 if (ks == k) {621 } else if (ks == p-1) {625 k = ks;