229 SUBROUTINE clarot( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT,
238 LOGICAL LLEFT, LRIGHT, LROWS
240 COMPLEX C, S, XLEFT, XRIGHT
249 INTEGER IINC, INEXT, IX, IY, IYT, J, NT
253 COMPLEX XT( 2 ), YT( 2 )
286 iyt = 1 + inext + ( nl-1 )*iinc
295 CALL xerbla(
'CLAROT', 4 )
298 IF( lda.LE.0 .OR. ( .NOT.lrows .AND. lda.LT.nl-nt ) )
THEN
299 CALL xerbla(
'CLAROT', 8 )
307 DO 10 j = 0, nl - nt - 1
308 tempx = c*a( ix+j*iinc ) + s*a( iy+j*iinc )
309 a( iy+j*iinc ) = -conjg( s )*a( ix+j*iinc ) +
310 $ conjg( c )*a( iy+j*iinc )
311 a( ix+j*iinc ) = tempx
317 tempx = c*xt( j ) + s*yt( j )
318 yt( j ) = -conjg( s )*xt( j ) + conjg( c )*yt( j )
subroutine clarot(LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, XRIGHT)
CLAROT
subroutine xerbla(SRNAME, INFO)
XERBLA