Lines Matching refs:ldfjac
2 *subroutine hybrj(fcn,n,x,fvec,fjac,ldfjac,xtol,maxfev,diag,mode,
5 integer n,ldfjac,maxfev,mode,nprint,info,nfev,njev,lr
7 double precision x(n),fvec(n),fjac(ldfjac,n),diag(n),r(lr),
173 if (n .le. 0 .or. ldfjac .lt. n .or. xtol .lt. zero
186 call fcn(n,x,fvec,fjac,ldfjac,iflag)
207 call fcn(n,x,fvec,fjac,ldfjac,iflag)
213 call qrfac(n,n,fjac,ldfjac,.false.,iwa,1,wa1,wa2,wa3)
273 call qform(n,n,fjac,ldfjac,wa1)
292 * call fcn(n,x,fvec,fjac,ldfjac,iflag)
316 call fcn(n,wa2,wa4,fjac,ldfjac,iflag)
418 call r1mpyq(n,n,fjac,ldfjac,wa2,wa3)
436 if (nprint .gt. 0) call fcn(n,x,fvec,fjac,ldfjac,iflag)