Lines Matching refs:ldfjac
193 double *fjac, int ldfjac, double ftol, double xtol, in lmder_() argument
219 if (n <= 0 || m < n || ldfjac < m || ftol < 0.0 || xtol < 0.0 || in lmder_()
235 (*fcn)(m, n, x, fvec, fjac, ldfjac, &iflag, p); in lmder_()
251 (*fcn)(m, n, x, fvec, fjac, ldfjac, &iflag, p); in lmder_()
261 (*fcn)(m, n, x, fvec, fjac, ldfjac, &iflag, p); in lmder_()
269 qrfac_(m, n, fjac, ldfjac, ipvt, wa1, wa2, wa3); in lmder_()
301 if (fjac[j + j * ldfjac] != 0.0) { in lmder_()
304 sum += fjac[i + j * ldfjac] * wa4[i]; in lmder_()
306 temp = -sum / fjac[j + j * ldfjac]; in lmder_()
308 wa4[i] += fjac[i + j * ldfjac] * temp; in lmder_()
311 fjac[j + j * ldfjac] = wa1[j]; in lmder_()
323 sum += fjac[i + j * ldfjac] * (qtf[i] / fnorm); in lmder_()
351 lmpar_(n, fjac, ldfjac, ipvt, diag, qtf, delta, in lmder_()
369 (*fcn)(m, n, wa2, wa4, fjac, ldfjac, &iflag, p); in lmder_()
391 wa3[i] += fjac[i + j * ldfjac] * temp; in lmder_()
489 (*fcn)(m, n, x, fvec, fjac, ldfjac, &iflag, p); in lmder_()