Lines Matching refs:wa2
215 double* wa2 = (double*)pws; in lmmin() local
304 lm_qrfac(m, n, fjac, Pivot, wa1, wa2, wa3); in lmmin()
328 if (wa2[Pivot[j]] == 0) in lmmin()
333 gnorm = MAX(gnorm, fabs(sum / wa2[Pivot[j]] / fnorm)); in lmmin()
346 diag[j] = wa2[j] ? wa2[j] : 1; in lmmin()
380 diag[j] = MAX(diag[j], wa2[j]); in lmmin()
390 wa1, wa2, wf, wa3); in lmmin()
419 wa2[j] = x[j] - wa1[j]; in lmmin()
420 (*evaluate)(wa2, m, data, wf, &(S->userbreak)); in lmmin()
440 lm_print_pars(nout, wa2, msgfile); // fnorm1, in lmmin()
447 fprintf(msgfile, " %16.9g", wa2[i]); in lmmin()
476 x[j] = wa2[j]; in lmmin()
477 wa2[j] = diag[j] * x[j]; in lmmin()
481 x[j] = wa2[j]; in lmmin()
485 xnorm = lm_enorm(n, wa2); in lmmin()