Home
last modified time | relevance | path

Searched refs:ABSBJJ (Results 1 – 24 of 24) sorted by relevance

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlaein.f199 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 Dslaein.f199 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 Ddlaein.f196 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 Dslaein.f196 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 Ddlaein.f196 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 Dslaein.f196 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 Dslaein.f99 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 Ddlaein.f99 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 Ddlaein.f196 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 Dslaein.f196 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 Ddlaein.f196 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 Dslaein.f196 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 Ddlaein.f199 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 Dslaein.f199 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 Ddlaein.f99 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 Dslaein.f99 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 Ddlaein.f196 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 Dslaein.f196 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 Ddlaein.f106 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 Dslaein.f106 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 Ddlaein.f106 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 Dslaein.f106 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 Ddlapack.f51595 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 Ddlapack.f51595 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