/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | slarre2a.f | 208 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, local 212 $ HNDRD = 100.0E0, 273 RTL = HNDRD*EPS 486 $ - HNDRD * EPS* ABS(TMP - TMP1)) 494 $ + HNDRD * EPS * ABS(TMP + TMP1)) 503 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 505 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | slarre2.f | 192 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, local 196 $ HNDRD = 100.0E0, 257 RTL = HNDRD*EPS 451 $ - HNDRD * EPS* ABS(TMP - TMP1)) 459 $ + HNDRD * EPS * ABS(TMP + TMP1)) 468 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 470 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre2a.f | 208 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 212 $ HNDRD = 100.0D0, 486 $ - HNDRD * EPS* ABS(TMP - TMP1)) 494 $ + HNDRD * EPS * ABS(TMP + TMP1)) 503 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 505 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre2.f | 192 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 196 $ HNDRD = 100.0D0, 451 $ - HNDRD * EPS* ABS(TMP - TMP1)) 459 $ + HNDRD * EPS * ABS(TMP + TMP1)) 468 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 470 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | slarre.f | 320 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 324 $ HNDRD = 100.0E0, 384 RTL = HNDRD*EPS 573 $ - HNDRD * EPS* ABS(TMP - TMP1)) 582 $ + HNDRD * EPS * ABS(TMP + TMP1)) 589 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 591 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre.f | 320 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 324 $ HNDRD = 100.0D0, 569 $ - HNDRD * EPS* ABS(TMP - TMP1)) 578 $ + HNDRD * EPS * ABS(TMP + TMP1)) 585 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 587 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dbdsvdx.f | 239 DOUBLE PRECISION ZERO, ONE, TEN, HNDRD, MEIGTH 241 $ HNDRD = 100.0D0, MEIGTH = -0.1250D0 ) 344 TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS
|
H A D | sbdsvdx.f | 239 REAL ZERO, ONE, TEN, HNDRD, MEIGTH 241 $ HNDRD = 100.0E0, MEIGTH = -0.1250E0 ) 344 TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slarre.f | 325 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0E0, 394 RTL = HNDRD*EPS 583 $ - HNDRD * EPS* ABS(TMP - TMP1)) 592 $ + HNDRD * EPS * ABS(TMP + TMP1)) 599 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 601 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre.f | 325 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0D0, 579 $ - HNDRD * EPS* ABS(TMP - TMP1)) 588 $ + HNDRD * EPS * ABS(TMP + TMP1)) 595 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 597 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | sbdsvdx.f | 245 REAL ZERO, ONE, TEN, HNDRD, MEIGTH 247 $ HNDRD = 100.0E0, MEIGTH = -0.1250E0 ) 350 TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS
|
H A D | dbdsvdx.f | 245 DOUBLE PRECISION ZERO, ONE, TEN, HNDRD, MEIGTH 247 $ HNDRD = 100.0D0, MEIGTH = -0.1250D0 ) 350 TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | slarre.f | 325 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0E0, 394 RTL = HNDRD*EPS 583 $ - HNDRD * EPS* ABS(TMP - TMP1)) 592 $ + HNDRD * EPS * ABS(TMP + TMP1)) 599 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 601 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre.f | 325 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0D0, 579 $ - HNDRD * EPS* ABS(TMP - TMP1)) 588 $ + HNDRD * EPS * ABS(TMP + TMP1)) 595 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 597 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dbdsvdx.f | 245 DOUBLE PRECISION ZERO, ONE, TEN, HNDRD, MEIGTH 247 $ HNDRD = 100.0D0, MEIGTH = -0.1250D0 ) 350 TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS
|
H A D | sbdsvdx.f | 245 REAL ZERO, ONE, TEN, HNDRD, MEIGTH 247 $ HNDRD = 100.0E0, MEIGTH = -0.1250E0 ) 350 TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | slarre.f | 325 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0E0, 394 RTL = HNDRD*EPS 583 $ - HNDRD * EPS* ABS(TMP - TMP1)) 592 $ + HNDRD * EPS * ABS(TMP + TMP1)) 599 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 601 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre.f | 325 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0D0, 579 $ - HNDRD * EPS* ABS(TMP - TMP1)) 588 $ + HNDRD * EPS * ABS(TMP + TMP1)) 595 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 597 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dbdsvdx.f | 245 DOUBLE PRECISION ZERO, ONE, TEN, HNDRD, MEIGTH 247 $ HNDRD = 100.0D0, MEIGTH = -0.1250D0 ) 350 TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | slarre.f | 325 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0E0, 394 RTL = HNDRD*EPS 583 $ - HNDRD * EPS* ABS(TMP - TMP1)) 592 $ + HNDRD * EPS * ABS(TMP + TMP1)) 599 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 601 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre.f | 325 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0D0, 579 $ - HNDRD * EPS* ABS(TMP - TMP1)) 588 $ + HNDRD * EPS * ABS(TMP + TMP1)) 595 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 597 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | slarre.f | 328 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, local 332 $ HNDRD = 100.0E0, 397 RTL = HNDRD*EPS 586 $ - HNDRD * EPS* ABS(TMP - TMP1)) 595 $ + HNDRD * EPS * ABS(TMP + TMP1)) 602 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 604 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre.f | 328 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, local 332 $ HNDRD = 100.0D0, 582 $ - HNDRD * EPS* ABS(TMP - TMP1)) 591 $ + HNDRD * EPS * ABS(TMP + TMP1)) 598 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 600 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slarre.f | 325 REAL FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0E0, 394 RTL = HNDRD*EPS 583 $ - HNDRD * EPS* ABS(TMP - TMP1)) 592 $ + HNDRD * EPS * ABS(TMP + TMP1)) 599 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 601 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|
H A D | dlarre.f | 325 DOUBLE PRECISION FAC, FOUR, FOURTH, FUDGE, HALF, HNDRD, 329 $ HNDRD = 100.0D0, 579 $ - HNDRD * EPS* ABS(TMP - TMP1)) 588 $ + HNDRD * EPS * ABS(TMP + TMP1)) 595 $ - HNDRD * EPS*ABS(W(WBEGIN)- WERR(WBEGIN) )) 597 $ + HNDRD * EPS * ABS(W(WEND)+ WERR(WEND)))
|