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)
subroutine dlarot(lrows, lleft, lright, nl, c, s, a, lda, xleft, xright)
DLAROT
subroutine drot(n, dx, incx, dy, incy, c, s)
DROT