Home
last modified time | relevance | path

Searched refs:SMLNUM (Results 101 – 125 of 4254) sorted by relevance

12345678910>>...171

/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/
H A Ddget32.f135 SMLNUM = DLAMCH( 'S' ) / EPS
136 BIGNUM = ONE / SMLNUM
137 CALL DLABAD( SMLNUM, BIGNUM )
141 VAL( 1 ) = SQRT( SMLNUM )
178 $ 1 ) ) ), SMLNUM )
186 $ MAX( SMLNUM, XNORM ) / EPS
239 DEN = MAX( SMLNUM, SMLNUM*XNRM,
245 $ MAX( SMLNUM, XNORM ) / EPS
299 DEN = MAX( SMLNUM, SMLNUM*XNRM,
305 $ MAX( SMLNUM, XNORM ) / EPS
[all …]
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/
H A Ddget32.f135 SMLNUM = DLAMCH( 'S' ) / EPS
136 BIGNUM = ONE / SMLNUM
137 CALL DLABAD( SMLNUM, BIGNUM )
141 VAL( 1 ) = SQRT( SMLNUM )
178 $ 1 ) ) ), SMLNUM )
186 $ MAX( SMLNUM, XNORM ) / EPS
239 DEN = MAX( SMLNUM, SMLNUM*XNRM,
245 $ MAX( SMLNUM, XNORM ) / EPS
299 DEN = MAX( SMLNUM, SMLNUM*XNRM,
305 $ MAX( SMLNUM, XNORM ) / EPS
[all …]
H A Dsget32.f135 SMLNUM = SLAMCH( 'S' ) / EPS
136 BIGNUM = ONE / SMLNUM
137 CALL SLABAD( SMLNUM, BIGNUM )
141 VAL( 1 ) = SQRT( SMLNUM )
178 $ 1 ) ) ), SMLNUM )
186 $ MAX( SMLNUM, XNORM ) / EPS
239 DEN = MAX( SMLNUM, SMLNUM*XNRM,
245 $ MAX( SMLNUM, XNORM ) / EPS
299 DEN = MAX( SMLNUM, SMLNUM*XNRM,
305 $ MAX( SMLNUM, XNORM ) / EPS
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/
H A Dsget32.f135 SMLNUM = SLAMCH( 'S' ) / EPS
136 BIGNUM = ONE / SMLNUM
137 CALL SLABAD( SMLNUM, BIGNUM )
141 VAL( 1 ) = SQRT( SMLNUM )
178 $ 1 ) ) ), SMLNUM )
186 $ MAX( SMLNUM, XNORM ) / EPS
239 DEN = MAX( SMLNUM, SMLNUM*XNRM,
245 $ MAX( SMLNUM, XNORM ) / EPS
299 DEN = MAX( SMLNUM, SMLNUM*XNRM,
305 $ MAX( SMLNUM, XNORM ) / EPS
[all …]
H A Ddget32.f135 SMLNUM = DLAMCH( 'S' ) / EPS
136 BIGNUM = ONE / SMLNUM
137 CALL DLABAD( SMLNUM, BIGNUM )
141 VAL( 1 ) = SQRT( SMLNUM )
178 $ 1 ) ) ), SMLNUM )
186 $ MAX( SMLNUM, XNORM ) / EPS
239 DEN = MAX( SMLNUM, SMLNUM*XNRM,
245 $ MAX( SMLNUM, XNORM ) / EPS
299 DEN = MAX( SMLNUM, SMLNUM*XNRM,
305 $ MAX( SMLNUM, XNORM ) / EPS
[all …]
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/
H A Dsget32.f132 SMLNUM = SLAMCH( 'S' ) / EPS
133 BIGNUM = ONE / SMLNUM
134 CALL SLABAD( SMLNUM, BIGNUM )
138 VAL( 1 ) = SQRT( SMLNUM )
175 $ 1 ) ) ), SMLNUM )
183 $ MAX( SMLNUM, XNORM ) / EPS
236 DEN = MAX( SMLNUM, SMLNUM*XNRM,
242 $ MAX( SMLNUM, XNORM ) / EPS
296 DEN = MAX( SMLNUM, SMLNUM*XNRM,
302 $ MAX( SMLNUM, XNORM ) / EPS
[all …]
H A Ddget32.f132 SMLNUM = DLAMCH( 'S' ) / EPS
133 BIGNUM = ONE / SMLNUM
134 CALL DLABAD( SMLNUM, BIGNUM )
138 VAL( 1 ) = SQRT( SMLNUM )
175 $ 1 ) ) ), SMLNUM )
183 $ MAX( SMLNUM, XNORM ) / EPS
236 DEN = MAX( SMLNUM, SMLNUM*XNRM,
242 $ MAX( SMLNUM, XNORM ) / EPS
296 DEN = MAX( SMLNUM, SMLNUM*XNRM,
302 $ MAX( SMLNUM, XNORM ) / EPS
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/
H A Dsget32.f135 SMLNUM = SLAMCH( 'S' ) / EPS
136 BIGNUM = ONE / SMLNUM
137 CALL SLABAD( SMLNUM, BIGNUM )
141 VAL( 1 ) = SQRT( SMLNUM )
178 $ 1 ) ) ), SMLNUM )
186 $ MAX( SMLNUM, XNORM ) / EPS
239 DEN = MAX( SMLNUM, SMLNUM*XNRM,
245 $ MAX( SMLNUM, XNORM ) / EPS
299 DEN = MAX( SMLNUM, SMLNUM*XNRM,
305 $ MAX( SMLNUM, XNORM ) / EPS
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dmb02qy.f154 DOUBLE PRECISION ANRM, BIGNUM, BNRM, MAXWRK, SMLNUM local
210 SMLNUM = DLAMCH( 'Safe minimum' ) / DLAMCH( 'Precision' )
211 BIGNUM = ONE / SMLNUM
212 CALL DLABAD( SMLNUM, BIGNUM )
219 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
223 CALL DLASCL( 'Upper', 0, 0, ANRM, SMLNUM, RANK, N, A, LDA,
244 IF( BNRM.GT.ZERO .AND. BNRM.LT.SMLNUM ) THEN
248 CALL DLASCL( 'General', 0, 0, BNRM, SMLNUM, M, NRHS, B, LDB,
288 CALL DLASCL( 'General', 0, 0, ANRM, SMLNUM, N, NRHS, B, LDB,
290 CALL DLASCL( 'Upper', 0, 0, SMLNUM, ANRM, RANK, RANK, A,
[all …]
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/
H A Dzlatrs.f243 SMLNUM = DLAMCH( 'Safe minimum' )
244 BIGNUM = ONE / SMLNUM
245 CALL DLABAD( SMLNUM, BIGNUM )
246 SMLNUM = SMLNUM / DLAMCH( 'Precision' )
247 BIGNUM = ONE / SMLNUM
280 TSCAL = HALF / ( SMLNUM*TMAX )
325 IF( GROW.LE.SMLNUM )
331 IF( TJJ.GE.SMLNUM ) THEN
367 IF( GROW.LE.SMLNUM )
409 IF( GROW.LE.SMLNUM )
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dclatrs.f329 SMLNUM = SLAMCH( 'Safe minimum' )
330 BIGNUM = ONE / SMLNUM
331 CALL SLABAD( SMLNUM, BIGNUM )
332 SMLNUM = SMLNUM / SLAMCH( 'Precision' )
333 BIGNUM = ONE / SMLNUM
366 TSCAL = HALF / ( SMLNUM*TMAX )
411 IF( GROW.LE.SMLNUM )
417 IF( TJJ.GE.SMLNUM ) THEN
453 IF( GROW.LE.SMLNUM )
495 IF( GROW.LE.SMLNUM )
[all …]
H A Dzlatrs.f329 SMLNUM = DLAMCH( 'Safe minimum' )
330 BIGNUM = ONE / SMLNUM
331 CALL DLABAD( SMLNUM, BIGNUM )
332 SMLNUM = SMLNUM / DLAMCH( 'Precision' )
333 BIGNUM = ONE / SMLNUM
366 TSCAL = HALF / ( SMLNUM*TMAX )
411 IF( GROW.LE.SMLNUM )
417 IF( TJJ.GE.SMLNUM ) THEN
453 IF( GROW.LE.SMLNUM )
495 IF( GROW.LE.SMLNUM )
[all …]
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dclatrs.f326 SMLNUM = SLAMCH( 'Safe minimum' )
327 BIGNUM = ONE / SMLNUM
328 CALL SLABAD( SMLNUM, BIGNUM )
329 SMLNUM = SMLNUM / SLAMCH( 'Precision' )
330 BIGNUM = ONE / SMLNUM
363 TSCAL = HALF / ( SMLNUM*TMAX )
408 IF( GROW.LE.SMLNUM )
414 IF( TJJ.GE.SMLNUM ) THEN
450 IF( GROW.LE.SMLNUM )
492 IF( GROW.LE.SMLNUM )
[all …]
H A Dzlatrs.f326 SMLNUM = DLAMCH( 'Safe minimum' )
327 BIGNUM = ONE / SMLNUM
328 CALL DLABAD( SMLNUM, BIGNUM )
329 SMLNUM = SMLNUM / DLAMCH( 'Precision' )
330 BIGNUM = ONE / SMLNUM
363 TSCAL = HALF / ( SMLNUM*TMAX )
408 IF( GROW.LE.SMLNUM )
414 IF( TJJ.GE.SMLNUM ) THEN
450 IF( GROW.LE.SMLNUM )
492 IF( GROW.LE.SMLNUM )
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzlatrs.f326 SMLNUM = DLAMCH( 'Safe minimum' )
327 BIGNUM = ONE / SMLNUM
328 CALL DLABAD( SMLNUM, BIGNUM )
329 SMLNUM = SMLNUM / DLAMCH( 'Precision' )
330 BIGNUM = ONE / SMLNUM
363 TSCAL = HALF / ( SMLNUM*TMAX )
408 IF( GROW.LE.SMLNUM )
414 IF( TJJ.GE.SMLNUM ) THEN
450 IF( GROW.LE.SMLNUM )
492 IF( GROW.LE.SMLNUM )
[all …]
H A Dclatrs.f326 SMLNUM = SLAMCH( 'Safe minimum' )
327 BIGNUM = ONE / SMLNUM
328 CALL SLABAD( SMLNUM, BIGNUM )
329 SMLNUM = SMLNUM / SLAMCH( 'Precision' )
330 BIGNUM = ONE / SMLNUM
363 TSCAL = HALF / ( SMLNUM*TMAX )
408 IF( GROW.LE.SMLNUM )
414 IF( TJJ.GE.SMLNUM ) THEN
450 IF( GROW.LE.SMLNUM )
492 IF( GROW.LE.SMLNUM )
[all …]
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dzlatrs.f326 SMLNUM = DLAMCH( 'Safe minimum' )
327 BIGNUM = ONE / SMLNUM
328 CALL DLABAD( SMLNUM, BIGNUM )
329 SMLNUM = SMLNUM / DLAMCH( 'Precision' )
330 BIGNUM = ONE / SMLNUM
363 TSCAL = HALF / ( SMLNUM*TMAX )
408 IF( GROW.LE.SMLNUM )
414 IF( TJJ.GE.SMLNUM ) THEN
450 IF( GROW.LE.SMLNUM )
492 IF( GROW.LE.SMLNUM )
[all …]
H A Dclatrs.f326 SMLNUM = SLAMCH( 'Safe minimum' )
327 BIGNUM = ONE / SMLNUM
328 CALL SLABAD( SMLNUM, BIGNUM )
329 SMLNUM = SMLNUM / SLAMCH( 'Precision' )
330 BIGNUM = ONE / SMLNUM
363 TSCAL = HALF / ( SMLNUM*TMAX )
408 IF( GROW.LE.SMLNUM )
414 IF( TJJ.GE.SMLNUM ) THEN
450 IF( GROW.LE.SMLNUM )
492 IF( GROW.LE.SMLNUM )
[all …]
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dclatrs.f326 SMLNUM = SLAMCH( 'Safe minimum' )
327 BIGNUM = ONE / SMLNUM
328 CALL SLABAD( SMLNUM, BIGNUM )
329 SMLNUM = SMLNUM / SLAMCH( 'Precision' )
330 BIGNUM = ONE / SMLNUM
363 TSCAL = HALF / ( SMLNUM*TMAX )
408 IF( GROW.LE.SMLNUM )
414 IF( TJJ.GE.SMLNUM ) THEN
450 IF( GROW.LE.SMLNUM )
492 IF( GROW.LE.SMLNUM )
[all …]
H A Dzlatrs.f326 SMLNUM = DLAMCH( 'Safe minimum' )
327 BIGNUM = ONE / SMLNUM
328 CALL DLABAD( SMLNUM, BIGNUM )
329 SMLNUM = SMLNUM / DLAMCH( 'Precision' )
330 BIGNUM = ONE / SMLNUM
363 TSCAL = HALF / ( SMLNUM*TMAX )
408 IF( GROW.LE.SMLNUM )
414 IF( TJJ.GE.SMLNUM ) THEN
450 IF( GROW.LE.SMLNUM )
492 IF( GROW.LE.SMLNUM )
[all …]
/dports/math/algae/algae-4.3.6/lapack/
H A Dzlatrs.f243 SMLNUM = DLAMCH( 'Safe minimum' )
244 BIGNUM = ONE / SMLNUM
245 CALL DLABAD( SMLNUM, BIGNUM )
246 SMLNUM = SMLNUM / DLAMCH( 'Precision' )
247 BIGNUM = ONE / SMLNUM
280 TSCAL = HALF / ( SMLNUM*TMAX )
325 IF( GROW.LE.SMLNUM )
331 IF( TJJ.GE.SMLNUM ) THEN
367 IF( GROW.LE.SMLNUM )
409 IF( GROW.LE.SMLNUM )
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/
H A Dclatrs.f243 SMLNUM = SLAMCH( 'Safe minimum' )
244 BIGNUM = ONE / SMLNUM
245 CALL SLABAD( SMLNUM, BIGNUM )
246 SMLNUM = SMLNUM / SLAMCH( 'Precision' )
247 BIGNUM = ONE / SMLNUM
280 TSCAL = HALF / ( SMLNUM*TMAX )
325 IF( GROW.LE.SMLNUM )
331 IF( TJJ.GE.SMLNUM ) THEN
367 IF( GROW.LE.SMLNUM )
409 IF( GROW.LE.SMLNUM )
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/
H A Dclatrs.f329 SMLNUM = SLAMCH( 'Safe minimum' )
330 BIGNUM = ONE / SMLNUM
331 CALL SLABAD( SMLNUM, BIGNUM )
332 SMLNUM = SMLNUM / SLAMCH( 'Precision' )
333 BIGNUM = ONE / SMLNUM
366 TSCAL = HALF / ( SMLNUM*TMAX )
411 IF( GROW.LE.SMLNUM )
417 IF( TJJ.GE.SMLNUM ) THEN
453 IF( GROW.LE.SMLNUM )
495 IF( GROW.LE.SMLNUM )
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/
H A Dzlatrs.f329 SMLNUM = DLAMCH( 'Safe minimum' )
330 BIGNUM = ONE / SMLNUM
331 CALL DLABAD( SMLNUM, BIGNUM )
332 SMLNUM = SMLNUM / DLAMCH( 'Precision' )
333 BIGNUM = ONE / SMLNUM
366 TSCAL = HALF / ( SMLNUM*TMAX )
411 IF( GROW.LE.SMLNUM )
417 IF( TJJ.GE.SMLNUM ) THEN
453 IF( GROW.LE.SMLNUM )
495 IF( GROW.LE.SMLNUM )
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dclatrs.f329 SMLNUM = SLAMCH( 'Safe minimum' )
330 BIGNUM = ONE / SMLNUM
331 CALL SLABAD( SMLNUM, BIGNUM )
332 SMLNUM = SMLNUM / SLAMCH( 'Precision' )
333 BIGNUM = ONE / SMLNUM
366 TSCAL = HALF / ( SMLNUM*TMAX )
411 IF( GROW.LE.SMLNUM )
417 IF( TJJ.GE.SMLNUM ) THEN
453 IF( GROW.LE.SMLNUM )
495 IF( GROW.LE.SMLNUM )
[all …]

12345678910>>...171