227 SUBROUTINE zlarot( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA,
236 LOGICAL LLEFT, LRIGHT, LROWS
238 COMPLEX*16 C, S, XLEFT, XRIGHT
247 INTEGER IINC, INEXT, IX, IY, IYT, J, NT
251 COMPLEX*16 XT( 2 ), YT( 2 )
284 iyt = 1 + inext + ( nl-1 )*iinc
293 CALL xerbla(
'ZLAROT', 4 )
296 IF( lda.LE.0 .OR. ( .NOT.lrows .AND. lda.LT.nl-nt ) )
THEN
297 CALL xerbla(
'ZLAROT', 8 )
305 DO 10 j = 0, nl - nt - 1
306 tempx = c*a( ix+j*iinc ) + s*a( iy+j*iinc )
307 a( iy+j*iinc ) = -dconjg( s )*a( ix+j*iinc ) +
308 $ dconjg( c )*a( iy+j*iinc )
309 a( ix+j*iinc ) = tempx
315 tempx = c*xt( j ) + s*yt( j )
316 yt( j ) = -dconjg( s )*xt( j ) + dconjg( c )*yt( j )
subroutine zlarot(lrows, lleft, lright, nl, c, s, a, lda, xleft, xright)
ZLAROT