Home
last modified time | relevance | path

Searched refs:epsmch (Results 1 – 25 of 185) sorted by relevance

12345678

/dports/math/cminpack/cminpack-1.3.6/examples/
H A Dibmdpdr.f27 double precision dwarf,eps,epsmch,epsneg,giant,xmax,xmin
43 epsmch = dpmpar(1)
46 rerr(1) = (epsmch - eps)/epsmch
58 write (nwrite,20) epsmch,rerr(1),dwarf,rerr(2),giant,rerr(3)
66 * 9h epsmch =, d15.7 / 10h rerr(1) =, d15.7 //
H A Dibmdpdr_.c46 real epsmch, epsneg; in main() local
59 epsmch = __minpack_func__(dpmpar)(&i1); in main()
62 rerr[0] = (epsmch - eps) / epsmch; in main()
87 printf(" epsmch =%15.7e\n", (double)epsmch); in main()
H A Dibmdpdr.c46 real epsmch, epsneg; in main() local
58 epsmch = __cminpack_func__(dpmpar)(1); in main()
61 rerr[0] = (epsmch - eps) / epsmch; in main()
86 printf(" epsmch =%15.7e\n", (double)epsmch); in main()
/dports/math/cminpack/cminpack-1.3.6/
H A Dchkder.c17 real eps, epsf, temp, epsmch; in __cminpack_func__() local
104 epsmch = __cminpack_func__(dpmpar)(1); in __cminpack_func__()
106 eps = sqrt(epsmch); in __cminpack_func__()
124 epsf = factor * epsmch; in __cminpack_func__()
148 if (temp > epsmch && temp < eps) { in __cminpack_func__()
H A Dchkder_.c29 real eps, epsf, temp, epsmch; in __minpack_func__() local
127 epsmch = __minpack_func__(dpmpar)(&c__1); in __minpack_func__()
129 eps = sqrt(epsmch); in __minpack_func__()
152 epsf = factor * epsmch; in __minpack_func__()
183 if (temp > epsmch && temp < eps) { in __minpack_func__()
H A Dfdjac2.c13 real eps, temp, epsmch; in __cminpack_func__() local
94 epsmch = __cminpack_func__(dpmpar)(1); in __cminpack_func__()
96 eps = sqrt((max(epsfcn,epsmch))); in __cminpack_func__()
H A Dfdjac2_.c25 real eps, temp, epsmch; in __minpack_func__() local
114 epsmch = __minpack_func__(dpmpar)(&c__1); in __minpack_func__()
116 eps = sqrt((max(*epsfcn,epsmch))); in __minpack_func__()
H A Ddogleg.c23 real gnorm, qnorm, epsmch; in __cminpack_func__() local
96 epsmch = __cminpack_func__(dpmpar)(1); in __cminpack_func__()
122 temp = epsmch * temp; in __cminpack_func__()
124 temp = epsmch; in __cminpack_func__()
/dports/science/py-scipy/scipy-1.7.1/scipy/optimize/minpack/
H A Dchkder.f88 double precision eps,epsf,epslog,epsmch,factor,one,temp,zero
94 epsmch = dpmpar(1)
96 eps = dsqrt(epsmch)
112 epsf = factor*epsmch
131 if (temp .gt. epsmch .and. temp .lt. eps)
H A Dfdjac2.f82 double precision eps,epsmch,h,temp,zero
88 epsmch = dpmpar(1)
90 eps = dsqrt(dmax1(epsfcn,epsmch))
H A Ddogleg.f64 double precision alpha,bnorm,epsmch,gnorm,one,qnorm,sgnorm,sum,
71 epsmch = dpmpar(1)
95 temp = epsmch*temp
96 if (temp .eq. zero) temp = epsmch
/dports/math/cminpack/cminpack-1.3.6/fortran/
H A Dchkder.f87 double precision eps,epsf,epslog,epsmch,factor,one,temp,zero
93 epsmch = dpmpar(1)
95 eps = dsqrt(epsmch)
111 epsf = factor*epsmch
130 if (temp .gt. epsmch .and. temp .lt. eps)
H A Dfdjac2.f81 double precision eps,epsmch,h,temp,zero
87 epsmch = dpmpar(1)
89 eps = dsqrt(dmax1(epsfcn,epsmch))
H A Ddogleg.f63 double precision alpha,bnorm,epsmch,gnorm,one,qnorm,sgnorm,sum,
70 epsmch = dpmpar(1)
94 temp = epsmch*temp
95 if (temp .eq. zero) temp = epsmch
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/minpack/
H A Dfdjac2.f81 double precision eps,epsmch,h,temp,zero
87 epsmch = dpmpar(1)
89 eps = dsqrt(dmax1(epsfcn,epsmch))
H A Dfdjac2.c42 doublereal eps, temp, epsmch; in fdjac2_() local
140 epsmch = dpmpar_(&c__1); in fdjac2_()
143 eps = sqrt((max(*epsfcn,epsmch))); in fdjac2_()
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/tsai-30b3/minpack/
H A Dfdjac2.f81 double precision eps,epsmch,h,temp,zero local
87 epsmch = dpmpar(1)
89 eps = dsqrt(dmax1(epsfcn,epsmch))
H A Dfdjac2.c33 static doublereal epsmch; variable
124 epsmch = dpmpar_(&c__1);
126 eps = sqrt((max(*epsfcn,epsmch)));
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/minpack/
H A Dfdjac2.f81 double precision eps,epsmch,h,temp,zero
87 epsmch = dpmpar(1)
89 eps = dsqrt(dmax1(epsfcn,epsmch))
H A Dfdjac2.c42 doublereal eps, temp, epsmch; in fdjac2_() local
140 epsmch = dpmpar_(&c__1); in fdjac2_()
143 eps = sqrt((max(*epsfcn,epsmch))); in fdjac2_()
/dports/math/scilab/scilab-6.1.1/scilab/modules/optimization/src/fortran/minpack/
H A Dfdjac2.f82 double precision eps,epsmch,h,temp,zero
88 epsmch = dlamch('p')
90 eps = dsqrt(dmax1(epsfcn,epsmch))
H A Ddogleg.f63 double precision alpha,bnorm,epsmch,gnorm,one,qnorm,sgnorm,sum,
70 epsmch = dlamch('p')
94 temp = epsmch*temp
95 if (temp .eq. zero) temp = epsmch
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/minpack/
H A Dfdjac2.f9081 double precision eps,epsmch,h,temp,zero local
87 epsmch = dpmpar(1)
89 eps = dsqrt(dmax1(epsfcn,epsmch))
/dports/math/openturns/openturns-1.18/lib/src/Base/Optim/
H A Dalgotnc.c386 epsmch = mchpr1(); in tnc()
465 double epsmch; in setConstraints() local
467 epsmch = mchpr1(); in setConstraints()
543 epsmch = mchpr1(); in tnc_minimize()
946 epsmch = mchpr1(); in addConstraint()
1434 epsmch = mchpr1(); in linearSearch()
1438 abstol = -epsmch * (1.0 + fabs(*f)) / (gu - epsmch); in linearSearch()
1444 rtsmll = epsmch; in linearSearch()
1445 big = 1.0 / (epsmch * epsmch); in linearSearch()
1853 epsmch = eps; in mchpr1()
[all …]
/dports/math/maxima/maxima-5.43.2/share/minpack/lisp/
H A Dfdjac2.lisp31 (prog ((eps 0.0) (epsmch 0.0) (h 0.0) (temp 0.0) (i 0) (j 0))
33 (type (double-float) temp h epsmch eps))
112 (setf epsmch (dpmpar 1))
114 (setf eps (f2cl-lib:dsqrt (f2cl-lib:dmax1 epsfcn epsmch)))

12345678