Lines Matching refs:aux
32 double* par, double* x, double* Sdiag, double* aux, double* xdi);
555 double* par, double* x, double* Sdiag, double* aux, double* xdi) in lm_lmpar() argument
634 aux[j] = qtb[j]; in lm_lmpar()
638 aux[j] = 0; in lm_lmpar()
641 aux[j] = aux[j] / r[j+ldr*j]; in lm_lmpar()
642 temp = aux[j]; in lm_lmpar()
644 aux[i] -= r[j*ldr+i] * temp; in lm_lmpar()
648 x[Pivot[j]] = aux[j]; in lm_lmpar()
672 aux[j] = diag[Pivot[j]] * xdi[Pivot[j]] / dxnorm; in lm_lmpar()
677 sum += r[j*ldr+i] * aux[i]; in lm_lmpar()
678 aux[j] = (aux[j] - sum) / r[j+ldr*j]; in lm_lmpar()
680 temp = lm_enorm(n, aux); in lm_lmpar()
690 aux[j] = sum / diag[Pivot[j]]; in lm_lmpar()
692 gnorm = lm_enorm(n, aux); in lm_lmpar()
714 aux[j] = temp * diag[j]; in lm_lmpar()
716 lm_qrsolv(n, r, ldr, Pivot, aux, qtb, x, Sdiag, xdi); in lm_lmpar()
740 aux[j] = diag[Pivot[j]] * xdi[Pivot[j]] / dxnorm; in lm_lmpar()
743 aux[j] = aux[j] / Sdiag[j]; in lm_lmpar()
745 aux[i] -= r[j*ldr+i] * aux[j]; in lm_lmpar()
747 temp = lm_enorm(n, aux); in lm_lmpar()