Home
last modified time | relevance | path

Searched refs:PIVMIN (Results 1 – 25 of 315) sorted by relevance

12345678910>>...13

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlarrk.f146 $ 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 Dslarrk.f146 $ 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 Ddlarrk.f144 $ 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 Dslarrk.f144 $ 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 Ddlaebz.f326 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 Ddlarrk.f144 $ 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 Dslarrk.f144 $ 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 Ddlaebz.f326 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 Ddlarrk.f144 $ 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 Dslarrk.f144 $ 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 Ddlarrk.f144 $ 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 Dslarrk.f144 $ 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 Ddlarrk.f146 $ 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 Ddlarrk.f146 $ 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 Dslarrk.f146 $ 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 Ddlarrk.f146 $ 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 Ddlarrk.f144 $ 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 Dslarrk.f144 $ 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 Dsneblw2.F99 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 Dneblw2.F99 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 Dneblw2.F99 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 Dsneblw2.F99 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 Ddlarrb2.f151 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 Dslarrb2.f151 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 Ddlaebz.f12 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 …]

12345678910>>...13