/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | dget32.f | 135 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 D | dget32.f | 135 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 D | sget32.f | 135 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 D | sget32.f | 135 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 D | dget32.f | 135 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 D | sget32.f | 132 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 D | dget32.f | 132 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 D | sget32.f | 135 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 D | mb02qy.f | 154 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 D | zlatrs.f | 243 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 D | clatrs.f | 329 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 D | zlatrs.f | 329 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 D | clatrs.f | 326 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 D | zlatrs.f | 326 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 D | zlatrs.f | 326 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 D | clatrs.f | 326 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 D | zlatrs.f | 326 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 D | clatrs.f | 326 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 D | clatrs.f | 326 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 D | zlatrs.f | 326 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 D | zlatrs.f | 243 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 D | clatrs.f | 243 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 D | clatrs.f | 329 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 D | zlatrs.f | 329 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 D | clatrs.f | 329 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 …]
|