/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | dcsdts.f | 290 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL DLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | scsdts.f | 290 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL SLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | zcsdts.f | 279 $ X, LDX, REALONE, WORK, LDX ) 290 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 334 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 445 $ X, LDX, REALONE, WORK, LDX ) 456 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 467 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
H A D | ccsdts.f | 279 $ X, LDX, REALONE, WORK, LDX ) 290 CALL CLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL CLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 334 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 445 $ X, LDX, REALONE, WORK, LDX ) 456 CALL CLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 467 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | dcsdts.f | 292 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 323 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 335 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 457 CALL DLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 468 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 471 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | scsdts.f | 292 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 323 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 335 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 457 CALL SLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 468 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 471 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | zcsdts.f | 281 $ X, LDX, REALONE, WORK, LDX ) 292 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 336 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 447 $ X, LDX, REALONE, WORK, LDX ) 458 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 469 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | scsdts.f | 290 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL SLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | dcsdts.f | 290 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL DLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | zcsdts.f | 279 $ X, LDX, REALONE, WORK, LDX ) 290 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 334 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 445 $ X, LDX, REALONE, WORK, LDX ) 456 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 467 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | zcsdts.f | 279 $ X, LDX, REALONE, WORK, LDX ) 290 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 334 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 445 $ X, LDX, REALONE, WORK, LDX ) 456 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 467 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
H A D | scsdts.f | 290 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL SLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | dcsdts.f | 290 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL DLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | zcsdts.f | 279 $ X, LDX, REALONE, WORK, LDX ) 290 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 334 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 445 $ X, LDX, REALONE, WORK, LDX ) 456 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 467 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
H A D | dcsdts.f | 290 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL DLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | scsdts.f | 290 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL SLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | dcsdts.f | 292 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 323 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 335 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 457 CALL DLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 468 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 471 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | scsdts.f | 292 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 323 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 335 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 457 CALL SLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 468 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 471 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | zcsdts.f | 281 $ X, LDX, REALONE, WORK, LDX ) 292 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 336 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 447 $ X, LDX, REALONE, WORK, LDX ) 458 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 469 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | scsdts.f | 292 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 323 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 335 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 457 CALL SLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 468 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 471 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | zcsdts.f | 281 $ X, LDX, REALONE, WORK, LDX ) 292 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 336 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 447 $ X, LDX, REALONE, WORK, LDX ) 458 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 469 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
H A D | dcsdts.f | 292 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 297 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 303 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 306 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 309 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 323 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 335 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 457 CALL DLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 468 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 471 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | zcsdts.f | 279 $ X, LDX, REALONE, WORK, LDX ) 290 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 334 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 445 $ X, LDX, REALONE, WORK, LDX ) 456 CALL ZLACPY( 'Full', M, M, X, LDX, XF, LDX ) 467 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) [all …]
|
H A D | scsdts.f | 290 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL SLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL SLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|
H A D | dcsdts.f | 290 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 295 $ XF(1,Q+1), LDX, XF(P+1,1), LDX, XF(P+1,Q+1), LDX, 301 CALL DLACPY( 'Full', M, M, X, LDX, XF, LDX ) 304 $ XF, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 307 $ U1, LDU1, WORK, LDX, ZERO, XF, LDX ) 321 $ ONE, U1, LDU1, WORK, LDX, ZERO, XF(1,Q+1), LDX ) 333 $ XF(P+1,1), LDX, V1T, LDV1T, ZERO, WORK, LDX ) 455 CALL DLACPY( 'Full', M, Q, X, LDX, XF, LDX ) 466 $ X, LDX, V1T, LDV1T, ZERO, WORK, LDX ) 469 $ U1, LDU1, WORK, LDX, ZERO, X, LDX ) [all …]
|