/dports/math/cminpack/cminpack-1.3.6/ |
H A D | lmder_.c | 45 epsmch, prered; in __minpack_func__() local 242 epsmch = __minpack_func__(dpmpar)(&c__1); in __minpack_func__() 583 if (fabs(actred) <= epsmch && prered <= epsmch && p5 * ratio <= 1.) { in __minpack_func__() 586 if (delta <= epsmch * xnorm) { in __minpack_func__() 589 if (gnorm <= epsmch) { in __minpack_func__()
|
H A D | lmdif_.c | 46 real pnorm, xnorm = 0, fnorm1, actred, dirder, epsmch, prered; in __minpack_func__() local 246 epsmch = __minpack_func__(dpmpar)(&c__1); in __minpack_func__() 587 if (fabs(actred) <= epsmch && prered <= epsmch && p5 * ratio <= 1.) { in __minpack_func__() 590 if (delta <= epsmch * xnorm) { in __minpack_func__() 593 if (gnorm <= epsmch) { in __minpack_func__()
|
H A D | fdjac1_.c | 27 real epsmch; in __minpack_func__() local 127 epsmch = __minpack_func__(dpmpar)(&c__1); in __minpack_func__() 129 eps = sqrt((max(*epsfcn,epsmch))); in __minpack_func__()
|
/dports/math/cminpack/cminpack-1.3.6/fortran/ |
H A D | lmstr.f | 187 double precision actred,delta,dirder,epsmch,fnorm,fnorm1,gnorm, 196 epsmch = dpmpar(1) 442 if (dabs(actred) .le. epsmch .and. prered .le. epsmch 444 if (delta .le. epsmch*xnorm) info = 7 445 if (gnorm .le. epsmch) info = 8
|
/dports/math/arpack-ng/arpack-ng-3.8.0/SRC/ |
H A D | dsapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 171 save epsmch, first 206 epsmch = dlamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
H A D | ssapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 171 save epsmch, first 206 epsmch = slamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
/dports/math/arpack-ng/arpack-ng-3.8.0/PARPACK/SRC/BLACS/ |
H A D | pdsapps.f | 181 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 182 save epsmch, first 217 epsmch = pdlamch(comm, 'Epsilon-Machine') 273 if (h(i+1,1) .le. epsmch*big) then 444 if (h(i+1,1) .le. epsmch*big) then
|
H A D | pssapps.f | 181 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 182 save epsmch, first 217 epsmch = pslamch(comm, 'Epsilon-Machine') 273 if (h(i+1,1) .le. epsmch*big) then 444 if (h(i+1,1) .le. epsmch*big) then
|
/dports/math/arpack-ng/arpack-ng-3.8.0/PARPACK/SRC/MPI/ |
H A D | pdsapps.f | 182 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 183 save epsmch, first 217 epsmch = pdlamch10(comm, 'Epsilon-Machine') 273 if (h(i+1,1) .le. epsmch*big) then 444 if (h(i+1,1) .le. epsmch*big) then
|
H A D | pssapps.f | 181 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 182 save epsmch 216 epsmch = pslamch10(comm, 'Epsilon-Machine') 272 if (h(i+1,1) .le. epsmch*big) then 443 if (h(i+1,1) .le. epsmch*big) then
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/arpack/src_f77/ |
H A D | dsapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s local 171 save epsmch, first 206 epsmch = dlamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
H A D | ssapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s local 171 save epsmch, first 206 epsmch = slamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
/dports/science/py-scipy/scipy-1.7.1/scipy/sparse/linalg/eigen/arpack/ARPACK/SRC/ |
H A D | dsapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s local 171 save epsmch, first 206 epsmch = dlamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
H A D | ssapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s local 171 save epsmch, first 206 epsmch = slamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
/dports/math/R-cran-igraph/igraph/src/ |
H A D | dsapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 171 save epsmch, first 206 epsmch = dlamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
/dports/math/algae/algae-4.3.6/arpack/ |
H A D | dsapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 171 save epsmch, first 206 epsmch = dlamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/arpack/ |
H A D | dsapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 171 save epsmch, first 206 epsmch = dlamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
H A D | ssapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 171 save epsmch, first 206 epsmch = slamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
/dports/science/getdp/getdp-3.4.0-source/contrib/Arpack/ |
H A D | dsapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 171 save epsmch, first 206 epsmch = dlamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
H A D | ssapps.f | 170 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 171 save epsmch, first 206 epsmch = slamch('Epsilon-Machine') 262 if (h(i+1,1) .le. epsmch*big) then 433 if (h(i+1,1) .le. epsmch*big) then
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/parpack/ |
H A D | pssapps.f | 181 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 182 save epsmch, first 217 epsmch = pslamch10(comm, 'Epsilon-Machine') 273 if (h(i+1,1) .le. epsmch*big) then 444 if (h(i+1,1) .le. epsmch*big) then
|
H A D | pdsapps.f | 181 & a1, a2, a3, a4, big, c, epsmch, f, g, r, s 182 save epsmch, first 217 epsmch = pdlamch10(comm, 'Epsilon-Machine') 273 if (h(i+1,1) .le. epsmch*big) then 444 if (h(i+1,1) .le. epsmch*big) then
|
/dports/math/gretl/gretl-2021d/minpack/ |
H A D | lmder.c | 204 const double epsmch = DBL_EPSILON; in lmder_() local 459 if (fabs(actred) <= epsmch && prered <= epsmch && p5 * ratio <= 1.0) { in lmder_() 462 if (delta <= epsmch * xnorm) { in lmder_() 465 if (gnorm <= epsmch) { in lmder_()
|
H A D | lmdif.c | 207 const double epsmch = DBL_EPSILON; in lmdif_() local 473 if (fabs(actred) <= epsmch && prered <= epsmch && p5 * ratio <= 1.0) { in lmdif_() 476 if (delta <= epsmch * xnorm) { in lmdif_() 479 if (gnorm <= epsmch) { in lmdif_()
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
H A D | lmdif.f90 | 440 DOUBLEPRECISION eps, epsmch, h, temp, zero 446 epsmch = dpmpar (1) 448 eps = dsqrt (dmax1 (epsfcn, epsmch) ) 657 DOUBLEPRECISION actred, delta, dirder, epsmch, fnorm, fnorm1, & 666 epsmch = dpmpar (1) 894 IF (dabs (actred) .le.epsmch.and.prered.le.epsmch.and.p5 * & 896 IF (delta.le.epsmch * xnorm) info = 7 897 IF (gnorm.le.epsmch) info = 8 1403 DOUBLEPRECISION ajnorm, epsmch, one, p05, sum, temp, zero 1409 epsmch = dpmpar (1) [all …]
|