Home
last modified time | relevance | path

Searched refs:HNDRD (Results 1 – 25 of 94) sorted by relevance

1234

/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dslarre2a.f208 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 Dslarre2.f192 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 Ddlarre2a.f208 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 Ddlarre2.f192 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 Dslarre.f320 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 Ddlarre.f320 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 Ddbdsvdx.f239 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 Dsbdsvdx.f239 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 Dslarre.f325 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 Ddlarre.f325 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 Dsbdsvdx.f245 REAL ZERO, ONE, TEN, HNDRD, MEIGTH
247 $ HNDRD = 100.0E0, MEIGTH = -0.1250E0 )
350 TOL = MAX( TEN, MIN( HNDRD, EPS**MEIGTH ) )*EPS
H A Ddbdsvdx.f245 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 Dslarre.f325 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 Ddlarre.f325 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 Ddbdsvdx.f245 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 Dsbdsvdx.f245 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 Dslarre.f325 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 Ddlarre.f325 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 Ddbdsvdx.f245 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 Dslarre.f325 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 Ddlarre.f325 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 Dslarre.f328 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 Ddlarre.f328 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 Dslarre.f325 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 Ddlarre.f325 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)))

1234