/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | dget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | sget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | dget32.f | 108 $ TNRM, XNORM, XNRM 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | sget32.f | 108 $ TNRM, XNORM, XNRM 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | dget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | sget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | sget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | dget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | sget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | dget32.f | 105 $ TNRM, XNORM, XNRM local 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | sget32.f | 108 $ TNRM, XNORM, XNRM local 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | dget32.f | 108 $ TNRM, XNORM, XNRM local 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | sget32.f | 108 $ TNRM, XNORM, XNRM local 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | dget32.f | 108 $ TNRM, XNORM, XNRM local 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/ |
H A D | dget32.f | 108 $ TNRM, XNORM, XNRM local 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | sget32.f | 108 $ TNRM, XNORM, XNRM local 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | sget32.f | 108 $ TNRM, XNORM, XNRM 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | dget32.f | 108 $ TNRM, XNORM, XNRM 237 XNRM = MAX( ABS( X( 1, 1 ) ), 239 DEN = MAX( SMLNUM, SMLNUM*XNRM, 240 $ ( TNRM*EPS )*XNRM ) 244 RES = RES + ABS( XNORM-XNRM ) / 299 DEN = MAX( SMLNUM, SMLNUM*XNRM, 300 $ ( TNRM*EPS )*XNRM ) 304 RES = RES + ABS( XNORM-XNRM ) / 372 XNRM = MAX( ABS( X( 1, 1 ) )+ 405 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | sget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
H A D | dget32.f | 105 $ TNRM, XNORM, XNRM 234 XNRM = MAX( ABS( X( 1, 1 ) ), 236 DEN = MAX( SMLNUM, SMLNUM*XNRM, 237 $ ( TNRM*EPS )*XNRM ) 241 RES = RES + ABS( XNORM-XNRM ) / 296 DEN = MAX( SMLNUM, SMLNUM*XNRM, 297 $ ( TNRM*EPS )*XNRM ) 301 RES = RES + ABS( XNORM-XNRM ) / 369 XNRM = MAX( ABS( X( 1, 1 ) )+ 402 DEN = MAX( SMLNUM, SMLNUM*XNRM, [all …]
|
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | dqrt14.f | 138 DOUBLE PRECISION ANRM, ERR, XNRM 195 XNRM = DLANGE( 'M', M, NRHS, WORK( N*LDWORK+1 ), LDWORK, 197 IF( XNRM.NE.ZERO ) 198 $ CALL DLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, 228 XNRM = DLANGE( 'M', NRHS, N, WORK( M+1 ), LDWORK, RWORK ) 229 IF( XNRM.NE.ZERO ) 230 $ CALL DLASCL( 'G', 0, 0, XNRM, ONE, NRHS, N, WORK( M+1 ),
|
H A D | sqrt14.f | 138 REAL ANRM, ERR, XNRM 195 XNRM = SLANGE( 'M', M, NRHS, WORK( N*LDWORK+1 ), LDWORK, 197 IF( XNRM.NE.ZERO ) 198 $ CALL SLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, 228 XNRM = SLANGE( 'M', NRHS, N, WORK( M+1 ), LDWORK, RWORK ) 229 IF( XNRM.NE.ZERO ) 230 $ CALL SLASCL( 'G', 0, 0, XNRM, ONE, NRHS, N, WORK( M+1 ),
|
H A D | zqrt14.f | 138 DOUBLE PRECISION ANRM, ERR, XNRM 195 XNRM = ZLANGE( 'M', M, NRHS, WORK( N*LDWORK+1 ), LDWORK, 197 IF( XNRM.NE.ZERO ) 198 $ CALL ZLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, 228 XNRM = ZLANGE( 'M', NRHS, N, WORK( M+1 ), LDWORK, RWORK ) 229 IF( XNRM.NE.ZERO ) 230 $ CALL ZLASCL( 'G', 0, 0, XNRM, ONE, NRHS, N, WORK( M+1 ),
|
H A D | cqrt14.f | 138 REAL ANRM, ERR, XNRM 195 XNRM = CLANGE( 'M', M, NRHS, WORK( N*LDWORK+1 ), LDWORK, 197 IF( XNRM.NE.ZERO ) 198 $ CALL CLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, 228 XNRM = CLANGE( 'M', NRHS, N, WORK( M+1 ), LDWORK, RWORK ) 229 IF( XNRM.NE.ZERO ) 230 $ CALL CLASCL( 'G', 0, 0, XNRM, ONE, NRHS, N, WORK( M+1 ),
|
/dports/math/blas/lapack-3.10.0/TESTING/LIN/ |
H A D | zqrt14.f | 138 DOUBLE PRECISION ANRM, ERR, XNRM local 195 XNRM = ZLANGE( 'M', M, NRHS, WORK( N*LDWORK+1 ), LDWORK, 197 IF( XNRM.NE.ZERO ) 198 $ CALL ZLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, 228 XNRM = ZLANGE( 'M', NRHS, N, WORK( M+1 ), LDWORK, RWORK ) 229 IF( XNRM.NE.ZERO ) 230 $ CALL ZLASCL( 'G', 0, 0, XNRM, ONE, NRHS, N, WORK( M+1 ),
|