Searched refs:EPS3I (Results 1 – 2 of 2) sorted by relevance
| /dports/math/math77/MATH77/ |
| H A D | derf.f | 195 double precision EPS3I,D1MACH,SQEPSI,SQRTPI,XBIGI,XMAXI local
198 save EPS3I, FIRSTI, SQEPSI, XBIGI, XMAXI
204 EPS3I = D1MACH(3)
205 SQEPSI = sqrt (2.0D0*EPS3I)
206 XBIGI = sqrt (-log(SQRTPI*EPS3I))
210 EPS3 = EPS3I
|
| H A D | serf.f | 195 real EPS3I,R1MACH,SQEPSI,SQRTPI,XBIGI,XMAXI local
198 save EPS3I, FIRSTI, SQEPSI, XBIGI, XMAXI
204 EPS3I = R1MACH(3)
205 SQEPSI = sqrt (2.0E0*EPS3I)
206 XBIGI = sqrt (-log(SQRTPI*EPS3I))
210 EPS3 = EPS3I
|