/dports/math/cmlib/cmlib-3.0_8/doc/blas/ |
H A D | scnrm2 | 36 C CUTHI = minimum of SQRT(V) over all known machines. 47 C Move to phase 4 when a component is .GE. CUTHI/M 50 C Values for CUTLO and CUTHI.. 56 C CUTHI, S.P. V = 2**127 for Univac, Honeywell, and DEC. 57 C Thus CUTHI = 2**(63.5) = 1.30438E19 60 C CUTHI, D.P. same as S.P. CUTHI = 1.30438D19 61 C DATA CUTLO, CUTHI / 8.232D-11, 1.304D19 / 62 C DATA CUTLO, CUTHI / 4.441E-16, 1.304E19 /
|
H A D | snrm2 | 36 C CUTHI = minimum of SQRT(V) over all known machines. 47 C Move to phase 4 when a component is .GE. CUTHI/M 50 C Values for CUTLO and CUTHI.. 56 C CUTHI, S.P. V = 2**127 for Univac, Honeywell, and DEC. 57 C Thus CUTHI = 2**(63.5) = 1.30438E19 60 C CUTHI, D.P. same as S.P. CUTHI = 1.30438D19 61 C DATA CUTLO, CUTHI / 8.232D-11, 1.304D19 / 62 C DATA CUTLO, CUTHI / 4.441E-16, 1.304E19 /
|
H A D | dnrm2 | 37 C CUTHI = minimum of DSQRT(V) over all known machines. 48 C move to phase 4 when a component is .GE. CUTHI/M 51 C Values for CUTLO and CUTHI.. 57 C CUTHI, S.P. V = 2**127 for Univac, Honeywell, and DEC. 58 C Thus CUTHI = 2**(63.5) = 1.30438E19 61 C CUTHI, D.P. same as S.P. CUTHI = 1.30438D19 62 C DATA CUTLO, CUTHI / 8.232D-11, 1.304D19 / 63 C DATA CUTLO, CUTHI / 4.441E-16, 1.304E19 /
|
/dports/math/slatec/src/ |
H A D | scnrm2.f | 78 REAL CUTLO, CUTHI, HITEST, SUM, XMAX, ABSX, ZERO, ONE 80 SAVE CUTLO, CUTHI, ZERO, ONE 83 DATA CUTLO, CUTHI /4.441E-16, 1.304E19/ 147 HITEST = CUTHI / N
|
H A D | snrm2.f | 77 REAL SX(*), CUTLO, CUTHI, HITEST, SUM, XMAX, ZERO, ONE 78 SAVE CUTLO, CUTHI, ZERO, ONE 81 DATA CUTLO, CUTHI /4.441E-16, 1.304E19/ 140 85 HITEST = CUTHI / N
|
H A D | dnrm2.f | 77 DOUBLE PRECISION DX(*), CUTLO, CUTHI, HITEST, SUM, XMAX, ZERO, 79 SAVE CUTLO, CUTHI, ZERO, ONE 82 DATA CUTLO, CUTHI /8.232D-11, 1.304D19/ 141 85 HITEST = CUTHI / N
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | snrm2.f | 77 REAL SX(*), CUTLO, CUTHI, HITEST, SUM, XMAX, ZERO, ONE 78 SAVE CUTLO, CUTHI, ZERO, ONE 81 DATA CUTLO, CUTHI /4.441E-16, 1.304E19/ 140 85 HITEST = CUTHI / N
|
/dports/math/libmissing/libmissing-20130815/c/test-qp/ |
H A D | myqlog1pmm.c-not-yet | 26 static long double CUTHI = 0.5L; /* CUTHI = 1/beta, for arbitrary base beta */ 37 * x in [CUTLO, CUTHI]: Taylor series 38 * x in (CUTHI, Infinity]: log(1+x) 53 else if (x <= CUTHI)
|
H A D | myqexpm1mm.c | 41 static const long double CUTHI = 0.4054651081081643819780131154643491365719904234625L; in expm1l() local 68 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1l()
|
H A D | myqexpm1n.c | 31 static const long double CUTHI = 0.4054651081081643819780131154643491365719904234625L; in expm1l() local 97 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1l()
|
/dports/math/cmlib/cmlib-3.0_8/src/blas/ |
H A D | scnrm2.f | 73 REAL CUTLO, CUTHI, HITEST, SUM, XMAX, ABSX, ZERO, ONE 77 DATA CUTLO, CUTHI / 4.441E-16, 1.304E19 / 139 HITEST = CUTHI/FLOAT( N )
|
H A D | dnrm2.f | 73 DOUBLE PRECISION DX(*), CUTLO, CUTHI, HITEST, SUM, XMAX,ZERO,ONE 76 DATA CUTLO, CUTHI / 8.232D-11, 1.304D19 / 134 85 HITEST = CUTHI/FLOAT( N )
|
H A D | snrm2.f | 72 REAL SX(*), CUTLO, CUTHI, HITEST, SUM, XMAX, ZERO, ONE 75 DATA CUTLO, CUTHI / 4.441E-16, 1.304E19 / 133 85 HITEST = CUTHI/FLOAT( N )
|
/dports/math/libmissing/libmissing-20130815/c/test-sp/ |
H A D | myexpm1mm.c | 41 static const float CUTHI = 0.4054651081081643819780131154643491365719904234625F; in expm1f() local 68 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1f()
|
H A D | myexpm1pade2.c | 41 static const float CUTHI = 0.4054651081081643819780131154643491365719904234625F; in expm1f() local 68 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1f()
|
H A D | myexpm1mm2.c | 41 static const float CUTHI = 0.4054651081081643819780131154643491365719904234625F; in expm1f() local 68 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1f()
|
H A D | myexpm1pade.c | 41 static const float CUTHI = 0.4054651081081643819780131154643491365719904234625F; in expm1f() local 68 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1f()
|
H A D | myalog1pmm.c | 28 static float CUTHI = 0.5F; /* CUTHI = 1/beta, for arbitrary base beta */ in alog1p() local 55 else if (x <= CUTHI) in alog1p()
|
H A D | myalog1pmm2.c | 28 static float CUTHI = 0.5F; /* CUTHI = 1/beta, for arbitrary base beta */ in alog1p() local 55 else if (x <= CUTHI) in alog1p()
|
/dports/math/libmissing/libmissing-20130815/c/test-dp/ |
H A D | mydexpm1mm.c | 40 static const double CUTHI = 0.4054651081081643819780131154643491365719904234625; in expm1() local 67 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1()
|
H A D | mydexpm1mm2.c | 40 static const double CUTHI = 0.4054651081081643819780131154643491365719904234625; in expm1() local 67 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1()
|
H A D | mydexpm1pade.c | 40 static const double CUTHI = 0.4054651081081643819780131154643491365719904234625; in expm1() local 67 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1()
|
H A D | mydexpm1pade2.c | 40 static const double CUTHI = 0.4054651081081643819780131154643491365719904234625; in expm1() local 67 else if (x <= CUTHI) /* region of accuracy loss from exp(x)-1 */ in expm1()
|
H A D | mydlog1pmm.c | 28 static double CUTHI = 0.5; /* CUTHI = 1/beta, for arbitrary base beta */ in dlog1p() local 55 else if (x <= CUTHI) in dlog1p()
|
H A D | mydlog1pmm2.c | 28 static double CUTHI = 0.5; /* CUTHI = 1/beta, for arbitrary base beta */ in dlog1p() local 55 else if (x <= CUTHI) in dlog1p()
|