/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | dget38.f | 130 $ WR( LDT ), WRTMP( LDT ) 229 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | sget38.f | 130 $ WR( LDT ), WRTMP( LDT ) 229 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | dget24.f | 340 $ H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, 359 $ WR( * ), WRT( * ), WRTMP( * ) 473 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 881 SELWR( I ) = WRTMP( I ) 886 VRMIN = WRTMP( I ) 889 IF( WRTMP( J ).LT.VRMIN ) THEN 891 VRMIN = WRTMP( J ) 895 WRTMP( KMIN ) = WRTMP( I ) 897 WRTMP( I ) = VRMIN
|
H A D | sget24.f | 340 $ H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, 359 $ WR( * ), WRT( * ), WRTMP( * ) 473 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 881 SELWR( I ) = WRTMP( I ) 886 VRMIN = WRTMP( I ) 889 IF( WRTMP( J ).LT.VRMIN ) THEN 891 VRMIN = WRTMP( J ) 895 WRTMP( KMIN ) = WRTMP( I ) 897 WRTMP( I ) = VRMIN
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | dget38.f | 130 $ WR( LDT ), WRTMP( LDT ) 229 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | sget38.f | 130 $ WR( LDT ), WRTMP( LDT ) 229 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | dget24.f | 340 $ H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, 359 $ WR( * ), WRT( * ), WRTMP( * ) 473 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 881 SELWR( I ) = WRTMP( I ) 886 VRMIN = WRTMP( I ) 889 IF( WRTMP( J ).LT.VRMIN ) THEN 891 VRMIN = WRTMP( J ) 895 WRTMP( KMIN ) = WRTMP( I ) 897 WRTMP( I ) = VRMIN
|
H A D | sget24.f | 340 $ H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, 359 $ WR( * ), WRT( * ), WRTMP( * ) 473 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 881 SELWR( I ) = WRTMP( I ) 886 VRMIN = WRTMP( I ) 889 IF( WRTMP( J ).LT.VRMIN ) THEN 891 VRMIN = WRTMP( J ) 895 WRTMP( KMIN ) = WRTMP( I ) 897 WRTMP( I ) = VRMIN
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | sget38.f | 130 $ WR( LDT ), WRTMP( LDT ) 229 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | dget38.f | 130 $ WR( LDT ), WRTMP( LDT ) 229 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | sget38.f | 130 $ WR( LDT ), WRTMP( LDT ) local 229 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | dget38.f | 130 $ WR( LDT ), WRTMP( LDT ) local 229 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/ |
H A D | dget38.f | 133 $ WR( LDT ), WRTMP( LDT ) local 232 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | sget38.f | 133 $ WR( LDT ), WRTMP( LDT ) local 232 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | dget38.f | 133 $ WR( LDT ), WRTMP( LDT ) local 232 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | sget38.f | 133 $ WR( LDT ), WRTMP( LDT ) 232 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | dget38.f | 133 $ WR( LDT ), WRTMP( LDT ) local 232 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | sget38.f | 133 $ WR( LDT ), WRTMP( LDT ) local 232 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | dget38.f | 133 $ WR( LDT ), WRTMP( LDT ) 232 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | sget38.f | 133 $ WR( LDT ), WRTMP( LDT ) 232 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | dget38.f | 130 $ WR( LDT ), WRTMP( LDT ) 229 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | sget38.f | 130 $ WR( LDT ), WRTMP( LDT ) 229 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 233 VRMIN = WRTMP( I ) 236 IF( WRTMP( J ).LT.VRMIN ) THEN 238 VRMIN = WRTMP( J ) 242 WRTMP( KMIN ) = WRTMP( I ) 244 WRTMP( I ) = VRMIN 258 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 398 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 426 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | dget38.f | 133 $ WR( LDT ), WRTMP( LDT ) 232 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL DTRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL DTRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL DTRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | sget38.f | 133 $ WR( LDT ), WRTMP( LDT ) 232 CALL SCOPY( N, WR, 1, WRTMP, 1 ) 236 VRMIN = WRTMP( I ) 239 IF( WRTMP( J ).LT.VRMIN ) THEN 241 VRMIN = WRTMP( J ) 245 WRTMP( KMIN ) = WRTMP( I ) 247 WRTMP( I ) = VRMIN 261 CALL STRSEN( 'B', 'V', SELECT, N, T, LDT, Q, LDT, WRTMP, WITMP, 401 CALL STRSEN( 'E', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, 429 CALL STRSEN( 'V', 'V', SELECT, N, TTMP, LDT, QTMP, LDT, WRTMP, [all …]
|
H A D | dget24.f | 342 $ H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, 362 $ WR( * ), WRT( * ), WRTMP( * ) 476 CALL DCOPY( N, WR, 1, WRTMP, 1 ) 884 SELWR( I ) = WRTMP( I ) 889 VRMIN = WRTMP( I ) 892 IF( WRTMP( J ).LT.VRMIN ) THEN 894 VRMIN = WRTMP( J ) 898 WRTMP( KMIN ) = WRTMP( I ) 900 WRTMP( I ) = VRMIN
|