226 SUBROUTINE slarot( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT,
235 LOGICAL LLEFT, LRIGHT, LROWS
237 REAL C, S, XLEFT, XRIGHT
246 INTEGER IINC, INEXT, IX, IY, IYT, NT
249 REAL XT( 2 ), YT( 2 )
279 iyt = 1 + inext + ( nl-1 )*iinc
288 CALL xerbla(
'SLAROT', 4 )
291 IF( lda.LE.0 .OR. ( .NOT.lrows .AND. lda.LT.nl-nt ) )
THEN
292 CALL xerbla(
'SLAROT', 8 )
298 CALL srot( nl-nt, a( ix ), iinc, a( iy ), iinc, c, s )
299 CALL srot( nt, xt, 1, yt, 1, c, s )
subroutine slarot(LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, XRIGHT)
SLAROT
subroutine srot(N, SX, INCX, SY, INCY, C, S)
SROT
subroutine xerbla(SRNAME, INFO)
XERBLA