/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlaein.f | 199 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 471 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 472 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 494 IF( ABSBJJ.EQ.ZERO ) THEN 497 ABSBJJ = EPS3 499 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 199 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 471 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 472 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 494 IF( ABSBJJ.EQ.ZERO ) THEN 497 ABSBJJ = EPS3 499 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dlaein.f | 196 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 196 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dlaein.f | 196 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 196 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slaein.f | 99 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, local 371 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 372 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 394 IF( ABSBJJ.EQ.ZERO ) THEN 397 ABSBJJ = EPS3 399 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | dlaein.f | 99 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, local 371 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 372 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 394 IF( ABSBJJ.EQ.ZERO ) THEN 397 ABSBJJ = EPS3 399 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlaein.f | 196 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 196 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlaein.f | 196 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 196 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlaein.f | 199 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, local 471 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 472 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 494 IF( ABSBJJ.EQ.ZERO ) THEN 497 ABSBJJ = EPS3 499 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 199 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, local 471 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 472 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 494 IF( ABSBJJ.EQ.ZERO ) THEN 497 ABSBJJ = EPS3 499 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlaein.f | 99 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 371 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 372 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 394 IF( ABSBJJ.EQ.ZERO ) THEN 397 ABSBJJ = EPS3 399 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 99 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 371 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 372 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 394 IF( ABSBJJ.EQ.ZERO ) THEN 397 ABSBJJ = EPS3 399 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dlaein.f | 196 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 196 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 468 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 469 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 491 IF( ABSBJJ.EQ.ZERO ) THEN 494 ABSBJJ = EPS3 496 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | dlaein.f | 106 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, local 426 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 427 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 452 IF( ABSBJJ.EQ.ZERO ) THEN 455 ABSBJJ = EPS3 457 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 106 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, local 426 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 427 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 452 IF( ABSBJJ.EQ.ZERO ) THEN 455 ABSBJJ = EPS3 457 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/openblas/TIMING/EIG/EIGSRC/ |
H A D | dlaein.f | 106 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 426 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 427 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 452 IF( ABSBJJ.EQ.ZERO ) THEN 455 ABSBJJ = EPS3 457 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
H A D | slaein.f | 106 REAL ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 426 ABSBJJ = SLAPY2( B( J, J ), B( J+1, J ) ) 427 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 452 IF( ABSBJJ.EQ.ZERO ) THEN 455 ABSBJJ = EPS3 457 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/R/R-4.1.2/src/modules/lapack/ |
H A D | dlapack.f | 51595 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 51867 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 51868 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 51890 IF( ABSBJJ.EQ.ZERO ) THEN 51893 ABSBJJ = EPS3 51895 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|
/dports/math/libRmath/R-4.1.1/src/modules/lapack/ |
H A D | dlapack.f | 51595 DOUBLE PRECISION ABSBII, ABSBJJ, EI, EJ, GROWTO, NORM, NRMSML, 51867 ABSBJJ = DLAPY2( B( J, J ), B( J+1, J ) ) 51868 IF( ABSBJJ.LT.ABS( EJ ) ) THEN 51890 IF( ABSBJJ.EQ.ZERO ) THEN 51893 ABSBJJ = EPS3 51895 EJ = ( EJ / ABSBJJ ) / ABSBJJ
|