Home
last modified time | relevance | path

Searched refs:CUTHI (Results 1 – 25 of 68) sorted by relevance

123

/dports/math/cmlib/cmlib-3.0_8/doc/blas/
H A Dscnrm236 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 Dsnrm236 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 Ddnrm237 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 Dscnrm2.f78 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 Dsnrm2.f77 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 Ddnrm2.f77 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 Dsnrm2.f77 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 Dmyqlog1pmm.c-not-yet26 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 Dmyqexpm1mm.c41 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 Dmyqexpm1n.c31 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 Dscnrm2.f73 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 Ddnrm2.f73 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 Dsnrm2.f72 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 Dmyexpm1mm.c41 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 Dmyexpm1pade2.c41 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 Dmyexpm1mm2.c41 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 Dmyexpm1pade.c41 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 Dmyalog1pmm.c28 static float CUTHI = 0.5F; /* CUTHI = 1/beta, for arbitrary base beta */ in alog1p() local
55 else if (x <= CUTHI) in alog1p()
H A Dmyalog1pmm2.c28 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 Dmydexpm1mm.c40 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 Dmydexpm1mm2.c40 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 Dmydexpm1pade.c40 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 Dmydexpm1pade2.c40 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 Dmydlog1pmm.c28 static double CUTHI = 0.5; /* CUTHI = 1/beta, for arbitrary base beta */ in dlog1p() local
55 else if (x <= CUTHI) in dlog1p()
H A Dmydlog1pmm2.c28 static double CUTHI = 0.5; /* CUTHI = 1/beta, for arbitrary base beta */ in dlog1p() local
55 else if (x <= CUTHI) in dlog1p()

123