/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | zhetri_rook.f | 302 A( K, K ) = A( KP, KP ) 303 A( KP, KP ) = TEMP 327 A( K, K ) = A( KP, KP ) 328 A( KP, KP ) = TEMP 354 A( KP, KP ) = TEMP 440 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 452 A( KP, KP ) = TEMP 465 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 477 A( KP, KP ) = TEMP 491 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | chetri_rook.f | 302 A( K, K ) = A( KP, KP ) 303 A( KP, KP ) = TEMP 327 A( K, K ) = A( KP, KP ) 328 A( KP, KP ) = TEMP 354 A( KP, KP ) = TEMP 440 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 452 A( KP, KP ) = TEMP 465 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 477 A( KP, KP ) = TEMP 491 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | csytri_rook.f | 289 CALL CSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 292 A( KP, KP ) = TEMP 303 CALL CSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 307 A( KP, KP ) = TEMP 318 CALL CSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 321 A( KP, KP ) = TEMP 405 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 409 A( KP, KP ) = TEMP 419 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 424 A( KP, KP ) = TEMP [all …]
|
H A D | zsytri_rook.f | 289 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 292 A( KP, KP ) = TEMP 303 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 307 A( KP, KP ) = TEMP 318 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 321 A( KP, KP ) = TEMP 405 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 409 A( KP, KP ) = TEMP 419 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 424 A( KP, KP ) = TEMP [all …]
|
H A D | ssytri_rook.f | 288 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 291 A( KP, KP ) = TEMP 302 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 306 A( KP, KP ) = TEMP 317 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 320 A( KP, KP ) = TEMP 404 $ CALL SSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 408 A( KP, KP ) = TEMP 418 $ CALL SSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 423 A( KP, KP ) = TEMP [all …]
|
H A D | dsytri_rook.f | 288 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 291 A( KP, KP ) = TEMP 302 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 306 A( KP, KP ) = TEMP 317 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 320 A( KP, KP ) = TEMP 404 $ CALL DSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 408 A( KP, KP ) = TEMP 418 $ CALL DSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 423 A( KP, KP ) = TEMP [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | zhetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | chetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | ssytri_rook.f | 285 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 288 A( KP, KP ) = TEMP 299 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 303 A( KP, KP ) = TEMP 314 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 317 A( KP, KP ) = TEMP 401 $ CALL SSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 405 A( KP, KP ) = TEMP 415 $ CALL SSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 420 A( KP, KP ) = TEMP [all …]
|
H A D | csytri_rook.f | 286 CALL CSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 289 A( KP, KP ) = TEMP 300 CALL CSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 304 A( KP, KP ) = TEMP 315 CALL CSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 318 A( KP, KP ) = TEMP 402 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 406 A( KP, KP ) = TEMP 416 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 421 A( KP, KP ) = TEMP [all …]
|
H A D | dsytri_rook.f | 285 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 288 A( KP, KP ) = TEMP 299 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 303 A( KP, KP ) = TEMP 314 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 317 A( KP, KP ) = TEMP 401 $ CALL DSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 405 A( KP, KP ) = TEMP 415 $ CALL DSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 420 A( KP, KP ) = TEMP [all …]
|
H A D | zsytri_rook.f | 286 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 289 A( KP, KP ) = TEMP 300 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 304 A( KP, KP ) = TEMP 315 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 318 A( KP, KP ) = TEMP 402 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 406 A( KP, KP ) = TEMP 416 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 421 A( KP, KP ) = TEMP [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zhetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | chetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | ssytri_rook.f | 285 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 288 A( KP, KP ) = TEMP 299 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 303 A( KP, KP ) = TEMP 314 CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 317 A( KP, KP ) = TEMP 401 $ CALL SSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 405 A( KP, KP ) = TEMP 415 $ CALL SSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 420 A( KP, KP ) = TEMP [all …]
|
H A D | dsytri_rook.f | 285 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 288 A( KP, KP ) = TEMP 299 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 303 A( KP, KP ) = TEMP 314 CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 317 A( KP, KP ) = TEMP 401 $ CALL DSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 405 A( KP, KP ) = TEMP 415 $ CALL DSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 420 A( KP, KP ) = TEMP [all …]
|
H A D | zsytri_rook.f | 286 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 289 A( KP, KP ) = TEMP 300 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 304 A( KP, KP ) = TEMP 315 CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) 318 A( KP, KP ) = TEMP 402 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 406 A( KP, KP ) = TEMP 416 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 421 A( KP, KP ) = TEMP [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | zhetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | chetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | chetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | zhetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | chetri_rook.f | 302 A( K, K ) = A( KP, KP ) 303 A( KP, KP ) = TEMP 327 A( K, K ) = A( KP, KP ) 328 A( KP, KP ) = TEMP 354 A( KP, KP ) = TEMP 440 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 452 A( KP, KP ) = TEMP 465 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 477 A( KP, KP ) = TEMP 491 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | zhetri_rook.f | 302 A( K, K ) = A( KP, KP ) 303 A( KP, KP ) = TEMP 327 A( K, K ) = A( KP, KP ) 328 A( KP, KP ) = TEMP 354 A( KP, KP ) = TEMP 440 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 452 A( KP, KP ) = TEMP 465 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 477 A( KP, KP ) = TEMP 491 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | chetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL CSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|
H A D | zhetri_rook.f | 299 A( K, K ) = A( KP, KP ) 300 A( KP, KP ) = TEMP 324 A( K, K ) = A( KP, KP ) 325 A( KP, KP ) = TEMP 351 A( KP, KP ) = TEMP 437 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 449 A( KP, KP ) = TEMP 462 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) 474 A( KP, KP ) = TEMP 488 $ CALL ZSWAP( N-KP, A( KP+1, K ), 1, A( KP+1, KP ), 1 ) [all …]
|