Home
last modified time | relevance | path

Searched refs:ERMAX (Results 1 – 25 of 40) sorted by relevance

12

/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
170 ERMAX = 0.0D0
173 75 ERMAX = MAX(ERMAX, ABS(ERRI))
175 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
258 ERMAX = 0.0D0
261 175 ERMAX = MAX(ERMAX, ABS(ERRI))
263 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
H A DfcvDiag_non_p.f30 DOUBLE PRECISION ERMAX, ERRI, GERMAX
150 ERMAX = 0.0D0
153 ERMAX = MAX(ERMAX, ABS(ERRI))
156 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
H A DfcvDiag_kry_bbd_p.f36 DOUBLE PRECISION ALPHA, TOUT, ERMAX, AVDIM
183 ERMAX = 0.0D0
186 ERMAX = MAX(ERMAX, ABS(ERRI))
189 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
/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
170 ERMAX = 0.0D0
173 75 ERMAX = MAX(ERMAX, ABS(ERRI))
175 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
258 ERMAX = 0.0D0
261 175 ERMAX = MAX(ERMAX, ABS(ERRI))
263 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
H A DfcvDiag_non_p.f30 DOUBLE PRECISION ERMAX, ERRI, GERMAX
150 ERMAX = 0.0D0
153 ERMAX = MAX(ERMAX, ABS(ERRI))
156 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
H A DfcvDiag_kry_bbd_p.f36 DOUBLE PRECISION ALPHA, TOUT, ERMAX, AVDIM
183 ERMAX = 0.0D0
186 ERMAX = MAX(ERMAX, ABS(ERRI))
189 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
/dports/math/cmlib/cmlib-3.0_8/test/
H A Dfishpak.f118 ERMAX=1.E-3
196 IF(ERR.GT.ERMAX)IPASS=0
270 ERMAX=1.E-3
332 IF(ERR.GT.ERMAX)IPASS=0
390 ERMAX=1.E-3
454 IF(ERR.GT.ERMAX)IPASS=0
496 IF(ERR.GT.ERMAX)IPASS=0
583 ERMAX=1.5E-3
713 ERMAX=1.E-2
860 ERMAX=1.E-3
[all …]
/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
134 ERMAX = 0.0D0
137 ERMAX = MAX(ERMAX, ABS(ERRI))
140 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
H A Dfark_diag_kry_bbd_p.f40 DOUBLE PRECISION ALPHA, TOUT, ERMAX, AVDIM
193 ERMAX = 0.0D0
196 ERMAX = MAX(ERMAX, ABS(ERRI))
199 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
/dports/math/sundials/sundials-5.7.0/examples/arkode/F77_parallel/
H A Dfark_diag_non_p.f31 DOUBLE PRECISION ERMAX, ERRI, GERMAX
134 ERMAX = 0.0D0
137 ERMAX = MAX(ERMAX, ABS(ERRI))
140 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
H A Dfark_diag_kry_bbd_p.f40 DOUBLE PRECISION ALPHA, TOUT, ERMAX, AVDIM
193 ERMAX = 0.0D0
196 ERMAX = MAX(ERMAX, ABS(ERRI))
199 CALL MPI_REDUCE(ERMAX, GERMAX, 1, MPI_DOUBLE_PRECISION, MPI_MAX,
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/
H A Dqpsrt.f1 SUBROUTINE QPSRT(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX) argument
60 REAL ELIST,ERMAX,ERRMAX,ERRMIN
134 ERMAX = ELIST(MAXERR)
/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/
H A Ddqpsrt.f1 SUBROUTINE DQPSRT(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX) argument
56 DOUBLE PRECISION ELIST,ERMAX,ERRMAX,ERRMIN
128 ERMAX = ELIST(MAXERR)
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/
H A Ddqpsrt.f1 SUBROUTINE DQPSRT(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX) argument
55 DOUBLE PRECISION ELIST,ERMAX,ERRMAX,ERRMIN local
127 ERMAX = ELIST(MAXERR)
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddqpsrt.f2 SUBROUTINE DQPSRT (LIMIT, LAST, MAXERR, ERMAX, ELIST, IORD, NRMAX) argument
68 DOUBLE PRECISION ELIST,ERMAX,ERRMAX,ERRMIN local
140 ERMAX = ELIST(MAXERR)
/dports/math/slatec/src/
H A Ddqpsrt.f2 SUBROUTINE DQPSRT (LIMIT, LAST, MAXERR, ERMAX, ELIST, IORD, NRMAX) argument
68 DOUBLE PRECISION ELIST,ERMAX,ERRMAX,ERRMIN
140 ERMAX = ELIST(MAXERR)
H A Dqpsrt.f2 SUBROUTINE QPSRT (LIMIT, LAST, MAXERR, ERMAX, ELIST, IORD, NRMAX) argument
71 REAL ELIST,ERMAX,ERRMAX,ERRMIN
145 ERMAX = ELIST(MAXERR)
/dports/math/cmlib/cmlib-3.0_8/doc/quadpks/
H A Dqpsrt2 SUBROUTINE QPSRT(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX)
23 C CALL QPSRT(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX)
38 C ERMAX - REAL
40 C ERMAX = ELIST(MAXERR)
/dports/math/slatec/
H A Dqxcsp.f56 ERMAX=1.E-3
120 IF (ERR.GT.ERMAX) IPASS = 0
168 IF (ERR.GT.ERMAX) IPASS = 0
H A Dqxssp.f57 ERMAX=5.E-3
111 IF (ERR.GT.ERMAX) IPASS = 0
H A Dqxcrt.f72 ERMAX=1.E-3
135 IF (ERR.GT.ERMAX) IPASS = 0
H A Dqxplr.f72 ERMAX=1.E-3
134 IF (ERR.GT.ERMAX) IPASS = 0
H A Dqxcyl.f78 ERMAX = 1.0E-3
151 IF (ERR .GT. ERMAX) IPASS = 0
H A Dqxgbun.f55 ERMAX=1.E-2
127 IF (ERR.GT.ERMAX) IPASS = 0
/dports/math/cmlib/cmlib-3.0_8/doc/quadpkd/
H A Ddqpsrt2 SUBROUTINE DQPSRT(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX)
36 C ERMAX - Double precision
38 C ERMAX = ELIST(MAXERR)

12