/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlarrk.f | 146 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 155 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR 187 ATOLI = FUDGE*TWO*PIVMIN 189 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 194 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 195 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 204 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 218 IF( ABS( TMP1 ).LT.PIVMIN ) 219 $ TMP1 = -PIVMIN 225 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | slarrk.f | 146 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 155 REAL PIVMIN, RELTOL, GL, GU, W, WERR 187 ATOLI = FUDGE*TWO*PIVMIN 189 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 194 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 195 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 204 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 218 IF( ABS( TMP1 ).LT.PIVMIN ) 219 $ TMP1 = -PIVMIN 225 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dlarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | slarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 REAL PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | dlaebz.f | 326 DOUBLE PRECISION ABSTOL, PIVMIN, RELTOL 369 IF( ABS( TMP1 ).LT.PIVMIN ) 370 $ TMP1 = -PIVMIN 377 IF( ABS( TMP1 ).LT.PIVMIN ) 378 $ TMP1 = -PIVMIN 422 IF( WORK( JI ).LE.PIVMIN ) THEN 429 IF( WORK( JI ).LE.PIVMIN ) THEN 516 IF( TMP2.LE.PIVMIN ) THEN 518 TMP2 = MIN( TMP2, -PIVMIN ) 523 IF( TMP2.LE.PIVMIN ) THEN [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dlarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | slarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 REAL PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | dlaebz.f | 326 DOUBLE PRECISION ABSTOL, PIVMIN, RELTOL 369 IF( ABS( TMP1 ).LT.PIVMIN ) 370 $ TMP1 = -PIVMIN 377 IF( ABS( TMP1 ).LT.PIVMIN ) 378 $ TMP1 = -PIVMIN 422 IF( WORK( JI ).LE.PIVMIN ) THEN 429 IF( WORK( JI ).LE.PIVMIN ) THEN 516 IF( TMP2.LE.PIVMIN ) THEN 518 TMP2 = MIN( TMP2, -PIVMIN ) 523 IF( TMP2.LE.PIVMIN ) THEN [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | slarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 REAL PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | slarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 REAL PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | dlarrk.f | 146 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 155 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR 187 ATOLI = FUDGE*TWO*PIVMIN 189 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 194 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 195 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 204 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 218 IF( ABS( TMP1 ).LT.PIVMIN ) 219 $ TMP1 = -PIVMIN 225 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlarrk.f | 146 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) argument 155 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR local 194 ATOLI = FUDGE*TWO*PIVMIN 196 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 201 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 202 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 211 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 225 IF( ABS( TMP1 ).LT.PIVMIN ) 226 $ TMP1 = -PIVMIN 232 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | slarrk.f | 146 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) argument 155 REAL PIVMIN, RELTOL, GL, GU, W, WERR local 194 ATOLI = FUDGE*TWO*PIVMIN 196 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 201 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 202 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 211 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 225 IF( ABS( TMP1 ).LT.PIVMIN ) 226 $ TMP1 = -PIVMIN 232 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dlarrk.f | 146 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 155 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR 187 ATOLI = FUDGE*TWO*PIVMIN 189 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 194 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 195 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 204 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 218 IF( ABS( TMP1 ).LT.PIVMIN ) 219 $ TMP1 = -PIVMIN 225 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dlarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
H A D | slarrk.f | 144 $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) 152 REAL PIVMIN, RELTOL, GL, GU, W, WERR 191 ATOLI = FUDGE*TWO*PIVMIN 193 ITMAX = INT( ( LOG( TNORM+PIVMIN )-LOG( PIVMIN ) ) / 198 LEFT = GL - FUDGE*TNORM*EPS*N - FUDGE*TWO*PIVMIN 199 RIGHT = GU + FUDGE*TNORM*EPS*N + FUDGE*TWO*PIVMIN 208 IF( TMP1.LT.MAX( ATOLI, PIVMIN, RTOLI*TMP2 ) ) THEN 222 IF( ABS( TMP1 ).LT.PIVMIN ) 223 $ TMP1 = -PIVMIN 229 IF( ABS( TMP1 ).LT.PIVMIN ) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/peigs/src/f77/ |
H A D | sneblw2.F | 99 REAL PIVMIN, SAFEMN, TMP1, ULP 154 PIVMIN = ONE 162 PIVMIN = MAX( PIVMIN, TMP1 ) 165 PIVMIN = PIVMIN*SAFEMN 170 IF( ABS( TMP1 ).LT.PIVMIN ) 171 $ TMP1 = -PIVMIN 178 IF( ABS( TMP1 ).LT.PIVMIN ) 179 $ TMP1 = -PIVMIN
|
H A D | neblw2.F | 99 DOUBLE PRECISION PIVMIN, SAFEMN, TMP1, ULP local 154 PIVMIN = ONE 162 PIVMIN = MAX( PIVMIN, TMP1 ) 165 PIVMIN = PIVMIN*SAFEMN 170 IF( ABS( TMP1 ).LT.PIVMIN ) 171 $ TMP1 = -PIVMIN 178 IF( ABS( TMP1 ).LT.PIVMIN ) 179 $ TMP1 = -PIVMIN
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/peigs/src/f77/ |
H A D | neblw2.F | 99 DOUBLE PRECISION PIVMIN, SAFEMN, TMP1, ULP 154 PIVMIN = ONE 162 PIVMIN = MAX( PIVMIN, TMP1 ) 165 PIVMIN = PIVMIN*SAFEMN 170 IF( ABS( TMP1 ).LT.PIVMIN ) 171 $ TMP1 = -PIVMIN 178 IF( ABS( TMP1 ).LT.PIVMIN ) 179 $ TMP1 = -PIVMIN
|
H A D | sneblw2.F | 99 REAL PIVMIN, SAFEMN, TMP1, ULP 154 PIVMIN = ONE 162 PIVMIN = MAX( PIVMIN, TMP1 ) 165 PIVMIN = PIVMIN*SAFEMN 170 IF( ABS( TMP1 ).LT.PIVMIN ) 171 $ TMP1 = -PIVMIN 178 IF( ABS( TMP1 ).LT.PIVMIN ) 179 $ TMP1 = -PIVMIN
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | dlarrb2.f | 151 MNWDTH = TWO * PIVMIN 188 IF((ABS(LEFT).LE.16*PIVMIN).OR.(ABS(RIGHT).LE.16*PIVMIN)) 400 $ DPLUS = -PIVMIN 412 $ DPLUS = -PIVMIN 455 $ DMINUS = -PIVMIN 467 $ DMINUS = -PIVMIN 551 $ DPLUS = -PIVMIN 580 IF(ABS(DPLUS).LT.PIVMIN) 581 $ DPLUS = -PIVMIN 614 $ DMINUS = -PIVMIN [all …]
|
H A D | slarrb2.f | 151 MNWDTH = TWO * PIVMIN 188 IF((ABS(LEFT).LE.16*PIVMIN).OR.(ABS(RIGHT).LE.16*PIVMIN)) 400 $ DPLUS = -PIVMIN 412 $ DPLUS = -PIVMIN 455 $ DMINUS = -PIVMIN 467 $ DMINUS = -PIVMIN 551 $ DPLUS = -PIVMIN 580 IF(ABS(DPLUS).LT.PIVMIN) 581 $ DPLUS = -PIVMIN 614 $ DMINUS = -PIVMIN [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | dlaebz.f | 12 DOUBLE PRECISION ABSTOL, PIVMIN, RELTOL local 258 IF( ABS( TMP1 ).LT.PIVMIN ) 259 $ TMP1 = -PIVMIN 266 IF( ABS( TMP1 ).LT.PIVMIN ) 267 $ TMP1 = -PIVMIN 311 IF( WORK( JI ).LE.PIVMIN ) THEN 318 IF( WORK( JI ).LE.PIVMIN ) THEN 405 IF( TMP2.LE.PIVMIN ) THEN 407 TMP2 = MIN( TMP2, -PIVMIN ) 427 IF( TMP2.LE.PIVMIN ) THEN [all …]
|