/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 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 D | fcvDiag_non_p.f | 30 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 D | fcvDiag_kry_bbd_p.f | 36 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 D | fcvDiag_kry_p.f | 33 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 D | fcvDiag_non_p.f | 30 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 D | fcvDiag_kry_bbd_p.f | 36 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 D | fishpak.f | 118 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 D | fark_diag_non_p.f | 31 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 D | fark_diag_kry_bbd_p.f | 40 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 D | fark_diag_non_p.f | 31 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 D | fark_diag_kry_bbd_p.f | 40 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 D | qpsrt.f | 1 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 D | dqpsrt.f | 1 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 D | dqpsrt.f | 1 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 D | dqpsrt.f | 2 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 D | dqpsrt.f | 2 SUBROUTINE DQPSRT (LIMIT, LAST, MAXERR, ERMAX, ELIST, IORD, NRMAX) argument 68 DOUBLE PRECISION ELIST,ERMAX,ERRMAX,ERRMIN 140 ERMAX = ELIST(MAXERR)
|
H A D | qpsrt.f | 2 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 D | qpsrt | 2 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 D | qxcsp.f | 56 ERMAX=1.E-3 120 IF (ERR.GT.ERMAX) IPASS = 0 168 IF (ERR.GT.ERMAX) IPASS = 0
|
H A D | qxssp.f | 57 ERMAX=5.E-3 111 IF (ERR.GT.ERMAX) IPASS = 0
|
H A D | qxcrt.f | 72 ERMAX=1.E-3 135 IF (ERR.GT.ERMAX) IPASS = 0
|
H A D | qxplr.f | 72 ERMAX=1.E-3 134 IF (ERR.GT.ERMAX) IPASS = 0
|
H A D | qxcyl.f | 78 ERMAX = 1.0E-3 151 IF (ERR .GT. ERMAX) IPASS = 0
|
H A D | qxgbun.f | 55 ERMAX=1.E-2 127 IF (ERR.GT.ERMAX) IPASS = 0
|
/dports/math/cmlib/cmlib-3.0_8/doc/quadpkd/ |
H A D | dqpsrt | 2 SUBROUTINE DQPSRT(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX) 36 C ERMAX - Double precision 38 C ERMAX = ELIST(MAXERR)
|