Home
last modified time | relevance | path

Searched refs:epmach (Results 1 – 25 of 75) sorted by relevance

123

/dports/math/R/R-4.1.2/src/appl/
H A Dintegrate.c493 epmach = DBL_EPSILON; in rdqagie()
1208 epmach = DBL_EPSILON; in rdqagse()
1514 double tabsc1, tabsc2, fc, epmach; in rdqk15i() local
1629 epmach = DBL_EPSILON; in rdqk15i()
1704 if (*resabs > uflow / (epmach * 50.)) { in rdqk15i()
1797 epmach = DBL_EPSILON; in rdqelg()
1821 tol2 = fmax2(fabs(e2), e1abs) * epmach; in rdqelg()
1824 tol3 = fmax2(e1abs, fabs(e0)) * epmach; in rdqelg()
1838 tol1 = fmax2(e1abs, fabs(e3)) * epmach; in rdqelg()
1948 double fc, epmach, dhlgth; in rdqk21() local
[all …]
/dports/math/libRmath/R-4.1.1/src/appl/
H A Dintegrate.c493 epmach = DBL_EPSILON; in rdqagie()
1208 epmach = DBL_EPSILON; in rdqagse()
1514 double tabsc1, tabsc2, fc, epmach; in rdqk15i() local
1629 epmach = DBL_EPSILON; in rdqk15i()
1704 if (*resabs > uflow / (epmach * 50.)) { in rdqk15i()
1797 epmach = DBL_EPSILON; in rdqelg()
1821 tol2 = fmax2(fabs(e2), e1abs) * epmach; in rdqelg()
1824 tol3 = fmax2(e1abs, fabs(e0)) * epmach; in rdqelg()
1838 tol1 = fmax2(e1abs, fabs(e3)) * epmach; in rdqelg()
1948 double fc, epmach, dhlgth; in rdqk21() local
[all …]
/dports/science/libxc/libxc-5.0.0/src/
H A Dintegrate.c294 epmach = DBL_EPSILON; in xc_rdqagse()
354 if (dres >= (1. - epmach * 50.) * defabs) { in xc_rdqagse()
417 (epmach * 100. + 1.) * (fabs(a2) + uflow * 1e3)) { in xc_rdqagse()
668 epmach = DBL_EPSILON; in rdqelg()
692 tol2 = max(fabs(e2), e1abs) * epmach; in rdqelg()
695 tol3 = max(e1abs, fabs(e0)) * epmach; in rdqelg()
709 tol1 = max(e1abs, fabs(e3)) * epmach; in rdqelg()
819 double fc, epmach, dhlgth; in rdqk21() local
917 epmach = DBL_EPSILON; in rdqk21()
985 if (*resabs > uflow / (epmach * 50.)) { in rdqk21()
[all …]
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/
H A Dqelg.f52 * epmach,epsinf,epstab,error,err1,err2,err3,e0,e1,e1abs,e2,e3, local
82 epmach = r1mach(4)
104 tol2 = amax1(abs(e2),e1abs)*epmach
107 tol3 = amax1(e1abs,abs(e0))*epmach
123 tol1 = amax1(e1abs,abs(e3))*epmach
182 100 abserr = amax1(abserr,0.5e+01*epmach*abs(result))
/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/quadpack/
H A Ddqelg.f52 * epmach,epsinf,epstab,error,err1,err2,err3,e0,e1,e1abs,e2,e3, local
82 epmach = d1mach(4)
104 tol2 = dmax1(dabs(e2),e1abs)*epmach
107 tol3 = dmax1(e1abs,dabs(e0))*epmach
123 tol1 = dmax1(e1abs,dabs(e3))*epmach
182 100 abserr = dmax1(abserr,0.5d+01*epmach*dabs(result))
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/
H A Ddqelg.f52 * epmach,epsinf,epstab,error,err1,err2,err3,e0,e1,e1abs,e2,e3, local
82 epmach = d1mach(4)
104 tol2 = dmax1(dabs(e2),e1abs)*epmach
107 tol3 = dmax1(e1abs,dabs(e0))*epmach
123 tol1 = dmax1(e1abs,dabs(e3))*epmach
182 100 abserr = dmax1(abserr,0.5d+01*epmach*dabs(result))
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/g77/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach,
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/testsuite/g77.f-torture/compile/
H A D980310-4.f176 * blist,b1,b2,dabs,defabs,defab1,defab2,dmax1,d1mach,elist,epmach, local
216 epmach = d1mach(4)
233 * epsrel.lt.dmax1(0.5d+02*epmach,0.5d-28)) ier = 6
249 if(abserr.le.0.5d+02*epmach*defabs.and.abserr.gt.errbnd) ier = 2
310 * epmach)*(dabs(a2)+0.1d+04*uflow)) ier = 3

123