Home
last modified time | relevance | path

Searched refs:ERRI (Results 1 – 25 of 297) sorted by relevance

12345678910>>...12

/dports/math/cmlib/cmlib-3.0_8/test/
H A Dlicepak.f79 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 Dcpzero.f66 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 Deisqx2.f25 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 Dcprpqx.f23 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 Deisqx1.f25 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 Dsmvch.f33 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 Ddmvch.f33 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 Dsmmch.f35 REAL ERRI
92 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
94 $ ERRI = ERRI/G( I )
95 ERR = MAX( ERR, ERRI )
H A Dcmvch.f37 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 Ddmmch.f36 DOUBLE PRECISION ERRI
93 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
95 $ ERRI = ERRI/G( I )
96 ERR = MAX( ERR, ERRI )
H A Dcmmch.f41 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 Dpdblastst.f4464 $ 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 Dpsblastst.f4464 $ 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 Dpcblastst.f4500 $ 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 Dpzblastst.f4500 $ 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 DfcvDiag_kry_p.f33 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 DfcvDiag_non_p.f30 DOUBLE PRECISION ERMAX, ERRI, GERMAX
152 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T)
153 ERMAX = MAX(ERMAX, ABS(ERRI))
H A DfcvDiag_kry_bbd_p.f37 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 DfcvDiag_kry_p.f33 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 DfcvDiag_non_p.f30 DOUBLE PRECISION ERMAX, ERRI, GERMAX
152 ERRI = Y(I) - EXP(-ALPHA * (MYPE * NLOCAL + I) * T)
153 ERMAX = MAX(ERMAX, ABS(ERRI))
H A DfcvDiag_kry_bbd_p.f37 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 Dfark_diag_non_p.f31 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 Dfark_diag_non_p.f31 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 Ddinta.f1109 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 Dsinta.f1109 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 …]

12345678910>>...12