NAME
CSROT - applies a plane rotation, where the cos and sin (c and s) are real and the vectors cx and cy are complex.
SYNOPSIS
SUBROUTINE CSROT(
N, CX, INCX, CY, INCY, C, S )
IF(
INCX.EQ.1 .AND. INCY.EQ.1 )
GO TO 20
IF(
INCX.LT.0 )
IX = ( -N+1 )*INCX + 1
IF(
INCY.LT.0 )
IY = ( -N+1 )*INCY + 1
CTEMP
= C*CX( IX ) + S*CY( IY )
CY(
IY ) = C*CY( IY ) - S*CX( IX )
CTEMP
= C*CX( I ) + S*CY( I )
CY(
I ) = C*CY( I ) - S*CX( I )
PURPOSE
ČLÁNKY DO MAILU