[ Previous | Next | Table of Contents | Index | Library Home | Legal | Search ]

**SUBROUTINE SROT(***N***,***X***,***INCX***,***Y***,***INCY***,***C***,***S***)**

**INTEGER** *INCX***,** *INCY***,** *N*

**REAL** *C***,** *S*

**REAL** *X***(*),** *Y***(*)**

SUBROUTINE DROT(N,X,INCX,Y,INCY,C,S)INTEGERINCX,INCY,NDOUBLE PRECISIONC,SDOUBLE PRECISIONX(*),Y(*)

SUBROUTINE CSROT(N,X,INCX,Y,INCY,C,S)INTEGERINCX,INCY,NREALC,SCOMPLEXX(*),Y(*)

SUBROUTINE ZDROT(N,X,INCX,Y,INCY,C,S)INTEGERINCX,INCY,NDOUBLE PRECISIONC,SCOMPLEX*16X(*),Y(*)

The **SROT**,
**DROT**, **CSROT,** or **ZDROT** subroutine
computes:

--- --- --- --- --- --- | X | | C S | | X | | i | | | | i | | | := | | . | | for i = 1, ..., N. | Y | | | | Y | | i | | -S C | | i | --- --- --- --- --- ---

The subroutines return the
modified *X* and *Y*.

If *N* <= 0, or if
*C* = 1 and *S* = 0, the subroutines return
immediately.
**
**