/dports/math/cminpack/cminpack-1.3.6/examples/ |
H A D | ibmdpdr.f | 27 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 D | ibmdpdr_.c | 46 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 D | ibmdpdr.c | 46 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 D | chkder.c | 17 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 D | chkder_.c | 29 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 D | fdjac2.c | 13 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 D | fdjac2_.c | 25 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 D | dogleg.c | 23 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 D | chkder.f | 88 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 D | fdjac2.f | 82 double precision eps,epsmch,h,temp,zero 88 epsmch = dpmpar(1) 90 eps = dsqrt(dmax1(epsfcn,epsmch))
|
H A D | dogleg.f | 64 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 D | chkder.f | 87 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 D | fdjac2.f | 81 double precision eps,epsmch,h,temp,zero 87 epsmch = dpmpar(1) 89 eps = dsqrt(dmax1(epsfcn,epsmch))
|
H A D | dogleg.f | 63 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 D | fdjac2.f | 81 double precision eps,epsmch,h,temp,zero 87 epsmch = dpmpar(1) 89 eps = dsqrt(dmax1(epsfcn,epsmch))
|
H A D | fdjac2.c | 42 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 D | fdjac2.f | 81 double precision eps,epsmch,h,temp,zero local 87 epsmch = dpmpar(1) 89 eps = dsqrt(dmax1(epsfcn,epsmch))
|
H A D | fdjac2.c | 33 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 D | fdjac2.f | 81 double precision eps,epsmch,h,temp,zero 87 epsmch = dpmpar(1) 89 eps = dsqrt(dmax1(epsfcn,epsmch))
|
H A D | fdjac2.c | 42 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 D | fdjac2.f | 82 double precision eps,epsmch,h,temp,zero 88 epsmch = dlamch('p') 90 eps = dsqrt(dmax1(epsfcn,epsmch))
|
H A D | dogleg.f | 63 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 D | fdjac2.f90 | 81 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 D | algotnc.c | 386 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 D | fdjac2.lisp | 31 (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)))
|