/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | clatbs.f | 335 SMLNUM = SLAMCH( 'Safe minimum' ) 336 BIGNUM = ONE / SMLNUM 337 CALL SLABAD( SMLNUM, BIGNUM ) 338 SMLNUM = SMLNUM / SLAMCH( 'Precision' ) 339 BIGNUM = ONE / SMLNUM 377 TSCAL = HALF / ( SMLNUM*TMAX ) 423 IF( GROW.LE.SMLNUM ) 429 IF( TJJ.GE.SMLNUM ) THEN 465 IF( GROW.LE.SMLNUM ) 509 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | clatps.f | 319 SMLNUM = SLAMCH( 'Safe minimum' ) 320 BIGNUM = ONE / SMLNUM 321 CALL SLABAD( SMLNUM, BIGNUM ) 322 SMLNUM = SMLNUM / SLAMCH( 'Precision' ) 323 BIGNUM = ONE / SMLNUM 360 TSCAL = HALF / ( SMLNUM*TMAX ) 406 IF( GROW.LE.SMLNUM ) 412 IF( TJJ.GE.SMLNUM ) THEN 450 IF( GROW.LE.SMLNUM ) 494 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | zlatbs.f | 335 SMLNUM = DLAMCH( 'Safe minimum' ) 336 BIGNUM = ONE / SMLNUM 337 CALL DLABAD( SMLNUM, BIGNUM ) 338 SMLNUM = SMLNUM / DLAMCH( 'Precision' ) 339 BIGNUM = ONE / SMLNUM 377 TSCAL = HALF / ( SMLNUM*TMAX ) 423 IF( GROW.LE.SMLNUM ) 429 IF( TJJ.GE.SMLNUM ) THEN 465 IF( GROW.LE.SMLNUM ) 509 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | zlatps.f | 319 SMLNUM = DLAMCH( 'Safe minimum' ) 320 BIGNUM = ONE / SMLNUM 321 CALL DLABAD( SMLNUM, BIGNUM ) 322 SMLNUM = SMLNUM / DLAMCH( 'Precision' ) 323 BIGNUM = ONE / SMLNUM 360 TSCAL = HALF / ( SMLNUM*TMAX ) 406 IF( GROW.LE.SMLNUM ) 412 IF( TJJ.GE.SMLNUM ) THEN 450 IF( GROW.LE.SMLNUM ) 494 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | slarfgp.f | 128 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM local 172 SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'E' ) 174 IF( ABS( BETA ).LT.SMLNUM ) THEN 178 BIGNUM = ONE / SMLNUM 184 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 203 IF ( ABS(TAU).LE.SMLNUM ) THEN 233 BETA = BETA*SMLNUM
|
H A D | dlarfgp.f | 128 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM local 172 SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'E' ) 174 IF( ABS( BETA ).LT.SMLNUM ) THEN 178 BIGNUM = ONE / SMLNUM 184 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 203 IF ( ABS(TAU).LE.SMLNUM ) THEN 233 BETA = BETA*SMLNUM
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | zlatps.f | 236 SMLNUM = DLAMCH( 'Safe minimum' ) 237 BIGNUM = ONE / SMLNUM 238 CALL DLABAD( SMLNUM, BIGNUM ) 239 SMLNUM = SMLNUM / DLAMCH( 'Precision' ) 240 BIGNUM = ONE / SMLNUM 277 TSCAL = HALF / ( SMLNUM*TMAX ) 323 IF( GROW.LE.SMLNUM ) 329 IF( TJJ.GE.SMLNUM ) THEN 367 IF( GROW.LE.SMLNUM ) 411 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | clatps.f | 236 SMLNUM = SLAMCH( 'Safe minimum' ) 237 BIGNUM = ONE / SMLNUM 238 CALL SLABAD( SMLNUM, BIGNUM ) 239 SMLNUM = SMLNUM / SLAMCH( 'Precision' ) 240 BIGNUM = ONE / SMLNUM 277 TSCAL = HALF / ( SMLNUM*TMAX ) 323 IF( GROW.LE.SMLNUM ) 329 IF( TJJ.GE.SMLNUM ) THEN 367 IF( GROW.LE.SMLNUM ) 411 IF( GROW.LE.SMLNUM ) [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | zlatbs.f | 246 SMLNUM = DLAMCH( 'Safe minimum' ) 247 BIGNUM = ONE / SMLNUM 248 CALL DLABAD( SMLNUM, BIGNUM ) 249 SMLNUM = SMLNUM / DLAMCH( 'Precision' ) 250 BIGNUM = ONE / SMLNUM 288 TSCAL = HALF / ( SMLNUM*TMAX ) 334 IF( GROW.LE.SMLNUM ) 340 IF( TJJ.GE.SMLNUM ) THEN 376 IF( GROW.LE.SMLNUM ) 420 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | zlatps.f | 236 SMLNUM = DLAMCH( 'Safe minimum' ) 237 BIGNUM = ONE / SMLNUM 238 CALL DLABAD( SMLNUM, BIGNUM ) 239 SMLNUM = SMLNUM / DLAMCH( 'Precision' ) 240 BIGNUM = ONE / SMLNUM 277 TSCAL = HALF / ( SMLNUM*TMAX ) 323 IF( GROW.LE.SMLNUM ) 329 IF( TJJ.GE.SMLNUM ) THEN 367 IF( GROW.LE.SMLNUM ) 411 IF( GROW.LE.SMLNUM ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | clatbs.f | 332 SMLNUM = SLAMCH( 'Safe minimum' ) 333 BIGNUM = ONE / SMLNUM 334 CALL SLABAD( SMLNUM, BIGNUM ) 335 SMLNUM = SMLNUM / SLAMCH( 'Precision' ) 336 BIGNUM = ONE / SMLNUM 374 TSCAL = HALF / ( SMLNUM*TMAX ) 420 IF( GROW.LE.SMLNUM ) 426 IF( TJJ.GE.SMLNUM ) THEN 462 IF( GROW.LE.SMLNUM ) 506 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | clatps.f | 316 SMLNUM = SLAMCH( 'Safe minimum' ) 317 BIGNUM = ONE / SMLNUM 318 CALL SLABAD( SMLNUM, BIGNUM ) 319 SMLNUM = SMLNUM / SLAMCH( 'Precision' ) 320 BIGNUM = ONE / SMLNUM 357 TSCAL = HALF / ( SMLNUM*TMAX ) 403 IF( GROW.LE.SMLNUM ) 409 IF( TJJ.GE.SMLNUM ) THEN 447 IF( GROW.LE.SMLNUM ) 491 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | zlatbs.f | 332 SMLNUM = DLAMCH( 'Safe minimum' ) 333 BIGNUM = ONE / SMLNUM 334 CALL DLABAD( SMLNUM, BIGNUM ) 335 SMLNUM = SMLNUM / DLAMCH( 'Precision' ) 336 BIGNUM = ONE / SMLNUM 374 TSCAL = HALF / ( SMLNUM*TMAX ) 420 IF( GROW.LE.SMLNUM ) 426 IF( TJJ.GE.SMLNUM ) THEN 462 IF( GROW.LE.SMLNUM ) 506 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | zlatps.f | 316 SMLNUM = DLAMCH( 'Safe minimum' ) 317 BIGNUM = ONE / SMLNUM 318 CALL DLABAD( SMLNUM, BIGNUM ) 319 SMLNUM = SMLNUM / DLAMCH( 'Precision' ) 320 BIGNUM = ONE / SMLNUM 357 TSCAL = HALF / ( SMLNUM*TMAX ) 403 IF( GROW.LE.SMLNUM ) 409 IF( TJJ.GE.SMLNUM ) THEN 447 IF( GROW.LE.SMLNUM ) 491 IF( GROW.LE.SMLNUM ) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | clatbs.f | 335 SMLNUM = SLAMCH( 'Safe minimum' ) 336 BIGNUM = ONE / SMLNUM 337 CALL SLABAD( SMLNUM, BIGNUM ) 338 SMLNUM = SMLNUM / SLAMCH( 'Precision' ) 339 BIGNUM = ONE / SMLNUM 377 TSCAL = HALF / ( SMLNUM*TMAX ) 423 IF( GROW.LE.SMLNUM ) 429 IF( TJJ.GE.SMLNUM ) THEN 465 IF( GROW.LE.SMLNUM ) 509 IF( GROW.LE.SMLNUM ) [all …]
|
H A D | dlarfgp.f | 128 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 172 SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'E' ) 174 IF( ABS( BETA ).LT.SMLNUM ) THEN 178 BIGNUM = ONE / SMLNUM 184 IF( ABS( BETA ).LT.SMLNUM ) 203 IF ( ABS(TAU).LE.SMLNUM ) THEN 233 BETA = BETA*SMLNUM
|
H A D | slarfgp.f | 128 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 172 SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'E' ) 174 IF( ABS( BETA ).LT.SMLNUM ) THEN 178 BIGNUM = ONE / SMLNUM 184 IF( ABS( BETA ).LT.SMLNUM ) 203 IF ( ABS(TAU).LE.SMLNUM ) THEN 233 BETA = BETA*SMLNUM
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slarfgp.f | 125 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 169 SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'E' ) 171 IF( ABS( BETA ).LT.SMLNUM ) THEN 175 BIGNUM = ONE / SMLNUM 181 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 200 IF ( ABS(TAU).LE.SMLNUM ) THEN 230 BETA = BETA*SMLNUM
|
H A D | dlarfgp.f | 125 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 169 SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'E' ) 171 IF( ABS( BETA ).LT.SMLNUM ) THEN 175 BIGNUM = ONE / SMLNUM 181 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 200 IF ( ABS(TAU).LE.SMLNUM ) THEN 230 BETA = BETA*SMLNUM
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | slarfgp.f | 125 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 169 SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'E' ) 171 IF( ABS( BETA ).LT.SMLNUM ) THEN 175 BIGNUM = ONE / SMLNUM 181 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 200 IF ( ABS(TAU).LE.SMLNUM ) THEN 230 BETA = BETA*SMLNUM
|
H A D | dlarfgp.f | 125 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 169 SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'E' ) 171 IF( ABS( BETA ).LT.SMLNUM ) THEN 175 BIGNUM = ONE / SMLNUM 181 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 200 IF ( ABS(TAU).LE.SMLNUM ) THEN 230 BETA = BETA*SMLNUM
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlarfgp.f | 125 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 169 SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'E' ) 171 IF( ABS( BETA ).LT.SMLNUM ) THEN 175 BIGNUM = ONE / SMLNUM 181 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 200 IF ( ABS(TAU).LE.SMLNUM ) THEN 230 BETA = BETA*SMLNUM
|
H A D | slarfgp.f | 125 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 169 SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'E' ) 171 IF( ABS( BETA ).LT.SMLNUM ) THEN 175 BIGNUM = ONE / SMLNUM 181 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 200 IF ( ABS(TAU).LE.SMLNUM ) THEN 230 BETA = BETA*SMLNUM
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlarfgp.f | 125 DOUBLE PRECISION BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 169 SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'E' ) 171 IF( ABS( BETA ).LT.SMLNUM ) THEN 175 BIGNUM = ONE / SMLNUM 181 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 200 IF ( ABS(TAU).LE.SMLNUM ) THEN 230 BETA = BETA*SMLNUM
|
H A D | slarfgp.f | 125 REAL BETA, BIGNUM, SAVEALPHA, SMLNUM, XNORM 169 SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'E' ) 171 IF( ABS( BETA ).LT.SMLNUM ) THEN 175 BIGNUM = ONE / SMLNUM 181 IF( (ABS( BETA ).LT.SMLNUM) .AND. (KNT .LT. 20) ) 200 IF ( ABS(TAU).LE.SMLNUM ) THEN 230 BETA = BETA*SMLNUM
|