/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | strsyl.f | 191 $ SMLNUM, SUML, SUMR, XNORM 321 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 351 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 356 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 405 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 410 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 415 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 420 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 505 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 534 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | dtrsyl.f | 191 $ SMLNUM, SUML, SUMR, XNORM 321 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 351 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 356 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 405 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 410 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 415 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 420 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 505 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 534 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | ctrsyl.f | 185 COMPLEX A11, SUML, SUMR, VEC, X11 269 SUMR = CDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 270 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 316 SUMR = CDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 317 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 367 SUMR = CDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 369 VEC = C( K, L ) - ( SUML+SGN*CONJG( SUMR ) ) 417 SUMR = CDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 419 VEC = C( K, L ) - ( SUML+SGN*CONJG( SUMR ) )
|
H A D | ztrsyl.f | 185 COMPLEX*16 A11, SUML, SUMR, VEC, X11 269 SUMR = ZDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 270 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 316 SUMR = ZDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 317 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 367 SUMR = ZDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 369 VEC = C( K, L ) - ( SUML+SGN*DCONJG( SUMR ) ) 417 SUMR = ZDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 419 VEC = C( K, L ) - ( SUML+SGN*DCONJG( SUMR ) )
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dtrsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | strsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | ctrsyl.f | 182 COMPLEX A11, SUML, SUMR, VEC, X11 266 SUMR = CDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 267 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 313 SUMR = CDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 314 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 364 SUMR = CDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 366 VEC = C( K, L ) - ( SUML+SGN*CONJG( SUMR ) ) 414 SUMR = CDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 416 VEC = C( K, L ) - ( SUML+SGN*CONJG( SUMR ) )
|
H A D | ztrsyl.f | 182 COMPLEX*16 A11, SUML, SUMR, VEC, X11 266 SUMR = ZDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 267 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 313 SUMR = ZDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 314 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 364 SUMR = ZDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 366 VEC = C( K, L ) - ( SUML+SGN*DCONJG( SUMR ) ) 414 SUMR = ZDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 416 VEC = C( K, L ) - ( SUML+SGN*DCONJG( SUMR ) )
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | strsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | dtrsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | strsyl.f | 103 $ SMLNUM, SUML, SUMR, XNORM local 233 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 263 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 268 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 317 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 322 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 327 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 332 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 417 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 446 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | dtrsyl.f | 103 $ SMLNUM, SUML, SUMR, XNORM local 233 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 263 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 268 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 317 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 322 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 327 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 332 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 417 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 446 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dtrsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | strsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | strsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | dtrsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | dtrsyl.f | 103 $ SMLNUM, SUML, SUMR, XNORM 233 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 263 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 268 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 317 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 322 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 327 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 332 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 417 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 446 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | strsyl.f | 191 $ SMLNUM, SUML, SUMR, XNORM local 321 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 351 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 356 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 405 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 410 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 415 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 420 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 505 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 534 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | dtrsyl.f | 191 $ SMLNUM, SUML, SUMR, XNORM local 321 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 351 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 356 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 405 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 410 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 415 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 420 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 505 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 534 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dtrsyl.f | 103 $ SMLNUM, SUML, SUMR, XNORM 233 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 263 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 268 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 317 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 322 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 327 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 332 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 417 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 446 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | strsyl.f | 103 $ SMLNUM, SUML, SUMR, XNORM 233 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 263 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 268 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 317 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 322 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 327 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 332 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 417 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 446 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dtrsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
H A D | strsyl.f | 188 $ SMLNUM, SUML, SUMR, XNORM 318 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 348 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 353 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 402 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 407 VEC( 1, 2 ) = C( K1, L2 ) - ( SUML+SGN*SUMR ) 412 VEC( 2, 1 ) = C( K2, L1 ) - ( SUML+SGN*SUMR ) 417 VEC( 2, 2 ) = C( K2, L2 ) - ( SUML+SGN*SUMR ) 502 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) 531 VEC( 1, 1 ) = C( K1, L1 ) - ( SUML+SGN*SUMR ) [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/ |
H A D | sb04py.f | 160 $ SCALOC, SGN, SMIN, SMLNUM, SUMR, XNORM local 514 SUMR = DDOT( K1, A( 1, K1 ), 1, DWORK, 1 ) 548 SUMR = DDOT( K2, A( 1, K1 ), 1, DWORK, 1 ) 551 SUMR = DDOT( K2, A( 1, K2 ), 1, DWORK, 1 ) 575 SUMR = DDOT( K1, A( 1, K1 ), 1, DWORK, 1 ) 612 SUMR = DDOT( K2, A( 1, K1 ), 1, DWORK, 1 ) 616 SUMR = DDOT( K2, A( 1, K2 ), 1, DWORK, 1 ) 722 SUMR = DDOT( K1, A( 1, K1 ), 1, DWORK, 1 ) 756 SUMR = DDOT( K2, A( 1, K1 ), 1, DWORK, 1 ) 759 SUMR = DDOT( K2, A( 1, K2 ), 1, DWORK, 1 ) [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
H A D | ztrsyl.f | 97 COMPLEX*16 A11, SUML, SUMR, VEC, X11 181 SUMR = ZDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 182 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 228 SUMR = ZDOTU( L-1, C( K, 1 ), LDC, B( 1, L ), 1 ) 229 VEC = C( K, L ) - ( SUML+SGN*SUMR ) 279 SUMR = ZDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 281 VEC = C( K, L ) - ( SUML+SGN*DCONJG( SUMR ) ) 329 SUMR = ZDOTC( N-L, C( K, MIN( L+1, N ) ), LDC, 331 VEC = C( K, L ) - ( SUML+SGN*DCONJG( SUMR ) )
|