Home
last modified time | relevance | path

Searched refs:SMLNUM (Results 251 – 275 of 4254) sorted by relevance

1...<<11121314151617181920>>...171

/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dclatbs.f335 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 Dclatps.f319 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 Dzlatbs.f335 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 Dzlatps.f319 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 Dslarfgp.f128 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 Ddlarfgp.f128 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 Dzlatps.f236 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 Dclatps.f236 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 Dzlatbs.f246 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 Dzlatps.f236 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 Dclatbs.f332 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 Dclatps.f316 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 Dzlatbs.f332 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 Dzlatps.f316 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 Dclatbs.f335 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 Ddlarfgp.f128 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 Dslarfgp.f128 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 Dslarfgp.f125 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 Ddlarfgp.f125 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 Dslarfgp.f125 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 Ddlarfgp.f125 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 Ddlarfgp.f125 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 Dslarfgp.f125 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 Ddlarfgp.f125 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 Dslarfgp.f125 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

1...<<11121314151617181920>>...171