/dports/lang/gauche/Gauche-0.9.10/src/gauche/priv/ |
H A D | bytesP.h | 72 #define CSWAP(buf, tmp, n, m) (tmp=buf[n], buf[n]=buf[m], buf[m]=tmp) macro 77 do { char tmp; CSWAP(v.buf, tmp, 0, 1); } while (0) 81 CSWAP(v.buf, tmp, 0, 3); CSWAP(v.buf, tmp, 1, 2); \ 86 CSWAP(v.buf, tmp, 0, 7); CSWAP(v.buf, tmp, 1, 6); \ 87 CSWAP(v.buf, tmp, 2, 5); CSWAP(v.buf, tmp, 3, 4); \ 96 CSWAP(v.buf, tmp, 0, 3); CSWAP(v.buf, tmp, 1, 2); \ 97 CSWAP(v.buf, tmp, 4, 7); CSWAP(v.buf, tmp, 5, 6); \ 102 CSWAP(v.buf, tmp, 0, 4); CSWAP(v.buf, tmp, 1, 5); \ 103 CSWAP(v.buf, tmp, 2, 6); CSWAP(v.buf, tmp, 3, 7); \
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | csyconvf_rook.f | 225 EXTERNAL CSWAP, XERBLA 299 CALL CSWAP( N-I, A( I, I+1 ), LDA, 315 CALL CSWAP( N-I, A( I, I+1 ), LDA, 350 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 371 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 440 CALL CSWAP( I-1, A( I, 1 ), LDA, 456 CALL CSWAP( I-1, A( I, 1 ), LDA, 460 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 491 CALL CSWAP( I-1, A( IP, 1 ), LDA, 508 CALL CSWAP( I-1, A( IP2, 1 ), LDA, [all …]
|
H A D | csytrs_rook.f | 166 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 221 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 241 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 245 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 303 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 323 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 327 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 360 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 381 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 443 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
H A D | csyconvf.f | 234 EXTERNAL CSWAP, XERBLA 308 CALL CSWAP( N-I, A( I, I+1 ), LDA, 322 CALL CSWAP( N-I, A( I-1, I+1 ), LDA, 361 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 376 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 452 CALL CSWAP( I-1, A( I, 1 ), LDA, 466 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 505 CALL CSWAP( I-1, A( IP, 1 ), LDA, 520 CALL CSWAP( I-1, A( IP, 1 ), LDA,
|
H A D | chetrs_rook.f | 167 EXTERNAL CGEMV, CGERU, CLACGV, CSSCAL, CSWAP, XERBLA 222 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 243 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 247 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 306 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 331 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 335 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 368 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 390 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 456 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | csyconvf_rook.f | 225 EXTERNAL CSWAP, XERBLA 299 CALL CSWAP( N-I, A( I, I+1 ), LDA, 315 CALL CSWAP( N-I, A( I, I+1 ), LDA, 350 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 371 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 440 CALL CSWAP( I-1, A( I, 1 ), LDA, 456 CALL CSWAP( I-1, A( I, 1 ), LDA, 460 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 491 CALL CSWAP( I-1, A( IP, 1 ), LDA, 508 CALL CSWAP( I-1, A( IP2, 1 ), LDA, [all …]
|
H A D | csytrs_rook.f | 166 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 221 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 241 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 245 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 303 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 323 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 327 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 360 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 381 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 443 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
H A D | csyconvf.f | 234 EXTERNAL CSWAP, XERBLA 308 CALL CSWAP( N-I, A( I, I+1 ), LDA, 322 CALL CSWAP( N-I, A( I-1, I+1 ), LDA, 361 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 376 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 452 CALL CSWAP( I-1, A( I, 1 ), LDA, 466 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 505 CALL CSWAP( I-1, A( IP, 1 ), LDA, 520 CALL CSWAP( I-1, A( IP, 1 ), LDA,
|
H A D | chetrs_rook.f | 167 EXTERNAL CGEMV, CGERU, CLACGV, CSSCAL, CSWAP, XERBLA 222 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 243 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 247 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 306 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 331 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 335 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 368 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 390 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 456 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | csyconvf_rook.f | 225 EXTERNAL CSWAP, XERBLA 299 CALL CSWAP( N-I, A( I, I+1 ), LDA, 315 CALL CSWAP( N-I, A( I, I+1 ), LDA, 350 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 371 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 440 CALL CSWAP( I-1, A( I, 1 ), LDA, 456 CALL CSWAP( I-1, A( I, 1 ), LDA, 460 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 491 CALL CSWAP( I-1, A( IP, 1 ), LDA, 508 CALL CSWAP( I-1, A( IP2, 1 ), LDA, [all …]
|
H A D | csytrs_rook.f | 166 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 221 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 241 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 245 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 303 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 323 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 327 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 360 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 381 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 443 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
H A D | csyconvf.f | 234 EXTERNAL CSWAP, XERBLA 308 CALL CSWAP( N-I, A( I, I+1 ), LDA, 322 CALL CSWAP( N-I, A( I-1, I+1 ), LDA, 361 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 376 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 452 CALL CSWAP( I-1, A( I, 1 ), LDA, 466 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 505 CALL CSWAP( I-1, A( IP, 1 ), LDA, 520 CALL CSWAP( I-1, A( IP, 1 ), LDA,
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | csyconvf_rook.f | 225 EXTERNAL CSWAP, XERBLA 299 CALL CSWAP( N-I, A( I, I+1 ), LDA, 315 CALL CSWAP( N-I, A( I, I+1 ), LDA, 350 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 371 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 440 CALL CSWAP( I-1, A( I, 1 ), LDA, 456 CALL CSWAP( I-1, A( I, 1 ), LDA, 460 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 491 CALL CSWAP( I-1, A( IP, 1 ), LDA, 508 CALL CSWAP( I-1, A( IP2, 1 ), LDA, [all …]
|
H A D | csytrs_rook.f | 166 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 221 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 241 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 245 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 303 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 323 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 327 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 360 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 381 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 443 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
H A D | csyconvf.f | 234 EXTERNAL CSWAP, XERBLA 308 CALL CSWAP( N-I, A( I, I+1 ), LDA, 322 CALL CSWAP( N-I, A( I-1, I+1 ), LDA, 361 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 376 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 452 CALL CSWAP( I-1, A( I, 1 ), LDA, 466 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 505 CALL CSWAP( I-1, A( IP, 1 ), LDA, 520 CALL CSWAP( I-1, A( IP, 1 ), LDA,
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | csyconvf_rook.f | 228 EXTERNAL CSWAP, XERBLA 302 CALL CSWAP( N-I, A( I, I+1 ), LDA, 318 CALL CSWAP( N-I, A( I, I+1 ), LDA, 353 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 374 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 443 CALL CSWAP( I-1, A( I, 1 ), LDA, 459 CALL CSWAP( I-1, A( I, 1 ), LDA, 463 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 494 CALL CSWAP( I-1, A( IP, 1 ), LDA, 511 CALL CSWAP( I-1, A( IP2, 1 ), LDA, [all …]
|
H A D | csytrs_rook.f | 169 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 224 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 244 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 248 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 306 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 326 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 330 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 363 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 384 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 446 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
H A D | csyconvf.f | 237 EXTERNAL CSWAP, XERBLA 311 CALL CSWAP( N-I, A( I, I+1 ), LDA, 325 CALL CSWAP( N-I, A( I-1, I+1 ), LDA, 364 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 379 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 455 CALL CSWAP( I-1, A( I, 1 ), LDA, 469 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 508 CALL CSWAP( I-1, A( IP, 1 ), LDA, 523 CALL CSWAP( I-1, A( IP, 1 ), LDA,
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | csyconvf_rook.f | 225 EXTERNAL CSWAP, XERBLA 299 CALL CSWAP( N-I, A( I, I+1 ), LDA, 315 CALL CSWAP( N-I, A( I, I+1 ), LDA, 350 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 371 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 440 CALL CSWAP( I-1, A( I, 1 ), LDA, 456 CALL CSWAP( I-1, A( I, 1 ), LDA, 460 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 491 CALL CSWAP( I-1, A( IP, 1 ), LDA, 508 CALL CSWAP( I-1, A( IP2, 1 ), LDA, [all …]
|
H A D | csytrs_rook.f | 166 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 221 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 241 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 245 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 303 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 323 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 327 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 360 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 381 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 443 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
H A D | csyconvf.f | 234 EXTERNAL CSWAP, XERBLA 308 CALL CSWAP( N-I, A( I, I+1 ), LDA, 322 CALL CSWAP( N-I, A( I-1, I+1 ), LDA, 361 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 376 CALL CSWAP( N-I, A( IP, I+1 ), LDA, 452 CALL CSWAP( I-1, A( I, 1 ), LDA, 466 CALL CSWAP( I-1, A( I+1, 1 ), LDA, 505 CALL CSWAP( I-1, A( IP, 1 ), LDA, 520 CALL CSWAP( I-1, A( IP, 1 ), LDA,
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | csytrs_rook.f | 169 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 224 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 244 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 248 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 306 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 326 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 330 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 363 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 384 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 446 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
H A D | chetrs_rook.f | 170 EXTERNAL CGEMV, CGERU, CLACGV, CSSCAL, CSWAP, XERBLA 225 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 246 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 250 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), LDB ) 309 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 334 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 338 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), LDB ) 371 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 393 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 459 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | clavsy_rook.f | 185 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 261 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 301 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 307 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), 353 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 394 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 400 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), 436 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 456 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 462 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/LIN/ |
H A D | clavsy_rook.f | 185 EXTERNAL CGEMV, CGERU, CSCAL, CSWAP, XERBLA 261 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 301 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 307 $ CALL CSWAP( NRHS, B( K+1, 1 ), LDB, B( KP, 1 ), 353 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 394 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 400 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), 436 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 456 $ CALL CSWAP( NRHS, B( K, 1 ), LDB, B( KP, 1 ), LDB ) 462 $ CALL CSWAP( NRHS, B( K-1, 1 ), LDB, B( KP, 1 ), [all …]
|