Home
last modified time | relevance | path

Searched refs:SUMR (Results 1 – 25 of 153) sorted by relevance

1234567

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dstrsyl.f191 $ 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 Ddtrsyl.f191 $ 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 Dctrsyl.f185 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 Dztrsyl.f185 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 Ddtrsyl.f188 $ 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 Dstrsyl.f188 $ 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 Dctrsyl.f182 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 Dztrsyl.f182 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 Dstrsyl.f188 $ 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 Ddtrsyl.f188 $ 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 Dstrsyl.f103 $ 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 Ddtrsyl.f103 $ 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 Ddtrsyl.f188 $ 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 Dstrsyl.f188 $ 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 Dstrsyl.f188 $ 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 Ddtrsyl.f188 $ 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 Ddtrsyl.f103 $ 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 Dstrsyl.f191 $ 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 Ddtrsyl.f191 $ 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 Ddtrsyl.f103 $ 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 Dstrsyl.f103 $ 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 Ddtrsyl.f188 $ 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 Dstrsyl.f188 $ 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 Dsb04py.f160 $ 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 Dztrsyl.f97 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 ) )

1234567