/dports/math/R/R-4.1.2/src/appl/ |
H A D | integrate.c | 493 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 D | integrate.c | 493 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 D | integrate.c | 294 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 D | qelg.f | 52 * 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 D | dqelg.f | 52 * 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 D | dqelg.f | 52 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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 D | 980310-4.f | 176 * 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
|