/dports/math/cmlib/cmlib-3.0_8/test/ |
H A D | licepak.f | 79 REAL ERR,ERRI,RELERR,RECJ local 101 ERRI = ABS(RECJ - EK(I)) 102 IF (ERRI .LT. ERR) ID = I 103 ERR = AMIN1(ERRI,ERR) 117 ERRI = ABS(RECJ - EK(I)) 119 ERR = AMIN1(ERRI,ERR) 141 REAL ERR,ERRI,RELERR local 164 ERRI = ABS(E(J) - EK(I)) 166 ERR = AMIN1(ERRI,ERR) 178 ERR = AMIN1(ERRI,ERR) [all …]
|
H A D | cpzero.f | 66 REAL A(6),ERR,ERRI,RELERR local 86 ERRI = CABS(Z(J) - ZK(I)) 87 IF (ERRI .LT. ERR) ID = I 88 ERR = AMIN1(ERRI,ERR) 99 ERRI = CABS(Z(J) - ZK(I)) 100 IF (ERRI .LT. ERR) ID = I 101 ERR = AMIN1(ERRI,ERR)
|
/dports/math/slatec/ |
H A D | eisqx2.f | 25 REAL ERR,ERRI,RELERR 53 ERRI = ABS(E(J) - EK(I)) 54 IF (ERRI .LT. ERR) ID = I 55 ERR = MIN(ERRI,ERR) 68 ERRI = ABS(E(J) - EK(I)) 69 IF (ERRI .LT. ERR) ID = I 70 ERR = MIN(ERRI,ERR) 84 ERRI = ABS(E(J) - EK(I)) 85 IF (ERRI .LT. ERR) ID = I 86 ERR = MIN(ERRI,ERR)
|
H A D | cprpqx.f | 23 REAL A(6),ERR,ERRI,RELERR 47 ERRI = ABS(Z(J) - ZK(I)) 48 IF (ERRI .LT. ERR) ID = I 49 ERR = MIN(ERRI,ERR) 63 ERRI = ABS(Z(J) - ZK(I)) 64 IF (ERRI .LT. ERR) ID = I 65 ERR = MIN(ERRI,ERR)
|
H A D | eisqx1.f | 25 REAL ERR,ERRI,RELERR,RECJ 51 ERRI = ABS(RECJ - EK(I)) 52 IF (ERRI .LT. ERR) ID = I 53 ERR = MIN(ERRI,ERR) 70 ERRI = ABS(RECJ - EK(I)) 71 IF (ERRI .LT. ERR) ID = I 72 ERR = MIN(ERRI,ERR)
|
H A D | smvch.f | 33 REAL ERRI 92 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS 94 $ ERRI = ERRI/G( I ) 95 ERR = MAX( ERR, ERRI )
|
H A D | dmvch.f | 33 DOUBLE PRECISION ERRI 92 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS 94 $ ERRI = ERRI/G( I ) 95 ERR = MAX( ERR, ERRI )
|
H A D | smmch.f | 35 REAL ERRI 92 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS 94 $ ERRI = ERRI/G( I ) 95 ERR = MAX( ERR, ERRI )
|
H A D | cmvch.f | 37 REAL ERRI 107 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS 109 $ ERRI = ERRI/G( I ) 110 ERR = MAX( ERR, ERRI )
|
H A D | dmmch.f | 36 DOUBLE PRECISION ERRI 93 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS 95 $ ERRI = ERRI/G( I ) 96 ERR = MAX( ERR, ERRI )
|
H A D | cmmch.f | 41 REAL ERRI 159 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS 161 $ ERRI = ERRI/G( I ) 162 ERR = MAX( ERR, ERRI )
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/TESTING/ |
H A D | pdblastst.f | 4464 $ ERRI = ERRI / G( J-JY+1 ) 4486 $ ERRI = ERRI / G( J+KK-JY+1 ) 4517 $ ERRI = ERRI / G( I-IY+1 ) 4539 $ ERRI = ERRI / G( I+KK-IY+1 ) 4861 $ ERRI = ERRI / G( I-IA+1 ) 4882 $ ERRI = ERRI / G( I+KK-IA+1 ) 5214 $ ERRI = ERRI / G( I-IA+1 ) 5235 $ ERRI = ERRI / G( I+KK-IA+1 ) 5590 $ ERRI = ERRI / G( I-IC+1 ) 5937 $ ERRI = ERRI / G( I-IC+1 ) [all …]
|
H A D | psblastst.f | 4464 $ ERRI = ERRI / G( J-JY+1 ) 4486 $ ERRI = ERRI / G( J+KK-JY+1 ) 4517 $ ERRI = ERRI / G( I-IY+1 ) 4539 $ ERRI = ERRI / G( I+KK-IY+1 ) 4861 $ ERRI = ERRI / G( I-IA+1 ) 4882 $ ERRI = ERRI / G( I+KK-IA+1 ) 5214 $ ERRI = ERRI / G( I-IA+1 ) 5235 $ ERRI = ERRI / G( I+KK-IA+1 ) 5590 $ ERRI = ERRI / G( I-IC+1 ) 5937 $ ERRI = ERRI / G( I-IC+1 ) [all …]
|
H A D | pcblastst.f | 4500 $ ERRI = ERRI / G( J-JY+1 ) 4522 $ ERRI = ERRI / G( J+KK-JY+1 ) 4553 $ ERRI = ERRI / G( I-IY+1 ) 4575 $ ERRI = ERRI / G( I+KK-IY+1 ) 4917 $ ERRI = ERRI / G( I-IA+1 ) 4938 $ ERRI = ERRI / G( I+KK-IA+1 ) 5278 $ ERRI = ERRI / G( I-IA+1 ) 5299 $ ERRI = ERRI / G( I+KK-IA+1 ) 5730 $ ERRI = ERRI / G( I-IC+1 ) 6109 $ ERRI = ERRI / G( I-IC+1 ) [all …]
|
H A D | pzblastst.f | 4500 $ ERRI = ERRI / G( J-JY+1 ) 4522 $ ERRI = ERRI / G( J+KK-JY+1 ) 4553 $ ERRI = ERRI / G( I-IY+1 ) 4575 $ ERRI = ERRI / G( I+KK-IY+1 ) 4917 $ ERRI = ERRI / G( I-IA+1 ) 4938 $ ERRI = ERRI / G( I+KK-IA+1 ) 5278 $ ERRI = ERRI / G( I-IA+1 ) 5299 $ ERRI = ERRI / G( I+KK-IA+1 ) 5730 $ ERRI = ERRI / G( I-IC+1 ) 6110 $ ERRI = ERRI / G( I-IC+1 ) [all …]
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/cvode/fcmix_parallel/ |
H A D | fcvDiag_kry_p.f | 33 DOUBLE PRECISION ATOL, DTOUT, T, ALPHA, RTOL, TOUT, ERMAX, ERRI 172 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 173 75 ERMAX = MAX(ERMAX, ABS(ERRI)) 260 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 261 175 ERMAX = MAX(ERMAX, ABS(ERRI))
|
H A D | fcvDiag_non_p.f | 30 DOUBLE PRECISION ERMAX, ERRI, GERMAX 152 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 153 ERMAX = MAX(ERMAX, ABS(ERRI))
|
H A D | fcvDiag_kry_bbd_p.f | 37 DOUBLE PRECISION ATOL, ERRI, RTOL, GERMAX, DTOUT, T 185 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 186 ERMAX = MAX(ERMAX, ABS(ERRI))
|
/dports/math/sundials/sundials-5.7.0/examples/cvode/fcmix_parallel/ |
H A D | fcvDiag_kry_p.f | 33 DOUBLE PRECISION ATOL, DTOUT, T, ALPHA, RTOL, TOUT, ERMAX, ERRI 172 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 173 75 ERMAX = MAX(ERMAX, ABS(ERRI)) 260 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 261 175 ERMAX = MAX(ERMAX, ABS(ERRI))
|
H A D | fcvDiag_non_p.f | 30 DOUBLE PRECISION ERMAX, ERRI, GERMAX 152 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 153 ERMAX = MAX(ERMAX, ABS(ERRI))
|
H A D | fcvDiag_kry_bbd_p.f | 37 DOUBLE PRECISION ATOL, ERRI, RTOL, GERMAX, DTOUT, T 185 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 186 ERMAX = MAX(ERMAX, ABS(ERRI))
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/arkode/F77_parallel/ |
H A D | fark_diag_non_p.f | 31 DOUBLE PRECISION ERMAX, ERRI, GERMAX 136 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 137 ERMAX = MAX(ERMAX, ABS(ERRI))
|
/dports/math/sundials/sundials-5.7.0/examples/arkode/F77_parallel/ |
H A D | fark_diag_non_p.f | 31 DOUBLE PRECISION ERMAX, ERRI, GERMAX 136 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T) 137 ERMAX = MAX(ERMAX, ABS(ERRI))
|
/dports/math/math77/MATH77/ |
H A D | dinta.f | 1109 ERRI=PACUM 1110 ERR=ERRI 1218 EP=MAX(ABS(ERRI),0.125d0*EPSMIN) 1219 ERRI=ACUM-PACUM 1220 ERR=ABS(ERRI) 1282 ERRI=ABS(ERRI) 1750 ERRI=ERR 2130 1 ERR=MAX(ERR,ERRI*(ERRI/EPSMIN)) 2264 IF (ERRI.LT.MAX(EPSMIN,PEPSMN)) GO TO 2200 2392 ERRC=MAX(ERR,ERRI) [all …]
|
H A D | sinta.f | 1109 ERRI=PACUM 1110 ERR=ERRI 1218 EP=MAX(ABS(ERRI),0.125e0*EPSMIN) 1219 ERRI=ACUM-PACUM 1220 ERR=ABS(ERRI) 1282 ERRI=ABS(ERRI) 1750 ERRI=ERR 2130 1 ERR=MAX(ERR,ERRI*(ERRI/EPSMIN)) 2264 IF (ERRI.LT.MAX(EPSMIN,PEPSMN)) GO TO 2200 2392 ERRC=MAX(ERR,ERRI) [all …]
|