224 SUBROUTINE dlarot( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT,
232 LOGICAL LLEFT, LRIGHT, LROWS
234 DOUBLE PRECISION C, S, XLEFT, XRIGHT
237 DOUBLE PRECISION A( * )
243 INTEGER IINC, INEXT, IX, IY, IYT, NT
246 DOUBLE PRECISION XT( 2 ), YT( 2 )
276 iyt = 1 + inext + ( nl-1 )*iinc
285 CALL xerbla(
'DLAROT', 4 )
288 IF( lda.LE.0 .OR. ( .NOT.lrows .AND. lda.LT.nl-nt ) )
THEN
289 CALL xerbla(
'DLAROT', 8 )
295 CALL drot( nl-nt, a( ix ), iinc, a( iy ), iinc, c, s )
296 CALL drot( nt, xt, 1, yt, 1, c, s )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine drot(N, DX, INCX, DY, INCY, C, S)
DROT
subroutine dlarot(LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, XRIGHT)
DLAROT