Searched refs:P5EPS (Results 1 – 4 of 4) sorted by relevance
| /dports/math/cmlib/cmlib-3.0_8/src/depac/ |
| H A D | step2.f | 195 5 P5EPS = 0.5*EPS
203 IF(P5EPS .GE. ROUND) GO TO 15
236 IF(P5EPS .GT. 100.0*ROUND) GO TO 99
431 325 IF(P5EPS .LT. 0.25*ERK) TEMP2 = SQRT(P5EPS/ERK)
515 IF(P5EPS .GE. ERK*TWO(K+1)) GO TO 465
517 IF(P5EPS .GE. ERK) GO TO 465
519 R = (P5EPS/ERK)**(1.0/TEMP2)
|
| /dports/math/slatec/src/ |
| H A D | dsteps.f | 181 2 FOURU, G, GI, GSTR, H, HNEW, HOLD, P, P5EPS, PHI, PSI, R,
215 5 P5EPS = 0.5D0*EPS
223 IF(P5EPS .GE. ROUND) GO TO 15
257 IF(P5EPS .GT. 100.0D0*ROUND) GO TO 99
478 325 IF(P5EPS .LT. 0.25D0*ERK) TEMP2 = SQRT(P5EPS/ERK)
567 IF(P5EPS .GE. ERK*TWO(K+1)) GO TO 465
569 IF(P5EPS .GE. ERK) GO TO 465
571 R = (P5EPS/ERK)**(1.0D0/TEMP2)
|
| H A D | steps.f | 206 5 P5EPS = 0.5*EPS
214 IF(P5EPS .GE. ROUND) GO TO 15
248 IF(P5EPS .GT. 100.0*ROUND) GO TO 99
469 325 IF(P5EPS .LT. 0.25*ERK) TEMP2 = SQRT(P5EPS/ERK)
558 IF(P5EPS .GE. ERK*TWO(K+1)) GO TO 465
560 IF(P5EPS .GE. ERK) GO TO 465
562 R = (P5EPS/ERK)**(1.0/TEMP2)
|
| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | ddeabm.f | 2752 2 FOURU, G, GI, GSTR, H, HNEW, HOLD, P, P5EPS, PHI, PSI, R, local
2786 5 P5EPS = 0.5D0*EPS
2794 IF(P5EPS .GE. ROUND) GO TO 15
2828 IF(P5EPS .GT. 100.0D0*ROUND) GO TO 99
3049 325 IF(P5EPS .LT. 0.25D0*ERK) TEMP2 = SQRT(P5EPS/ERK)
3138 IF(P5EPS .GE. ERK*TWO(K+1)) GO TO 465
3140 IF(P5EPS .GE. ERK) GO TO 465
3142 R = (P5EPS/ERK)**(1.0D0/TEMP2)
|