Lines Matching refs:Sdiag
32 double* par, double* x, double* Sdiag, double* aux, double* xdi);
37 double* Sdiag, double* W);
555 double* par, double* x, double* Sdiag, double* aux, double* xdi) in lm_lmpar() argument
716 lm_qrsolv(n, r, ldr, Pivot, aux, qtb, x, Sdiag, xdi); in lm_lmpar()
743 aux[j] = aux[j] / Sdiag[j]; in lm_lmpar()
902 double* Sdiag, double* W) in lm_qrsolv() argument
986 Sdiag[k] = 0; in lm_qrsolv()
987 Sdiag[j] = diag[Pivot[j]]; in lm_qrsolv()
998 if (Sdiag[k] == 0) in lm_qrsolv()
1001 if (fabs(r[kk]) < fabs(Sdiag[k])) { in lm_qrsolv()
1002 _cot = r[kk] / Sdiag[k]; in lm_qrsolv()
1006 _tan = Sdiag[k] / r[kk]; in lm_qrsolv()
1013 r[kk] = _cos * r[kk] + _sin * Sdiag[k]; in lm_qrsolv()
1020 temp = _cos * r[k*ldr+i] + _sin * Sdiag[i]; in lm_qrsolv()
1021 Sdiag[i] = -_sin * r[k*ldr+i] + _cos * Sdiag[i]; in lm_qrsolv()
1029 Sdiag[j] = r[j*ldr+j]; in lm_qrsolv()
1038 if (Sdiag[j] == 0 && nsing == n) in lm_qrsolv()
1048 W[j] = (W[j] - sum) / Sdiag[j]; in lm_qrsolv()