!>
!> ZLACRT performs the operation
!>
!>    (  c  s )( x )  ==> ( x )
!>    ( -s  c )( y )      ( y )
!>
!> where c and s are complex and the vectors x and y are complex.
!> 

N

!>          N is INTEGER
!>          The number of elements in the vectors CX and CY.
!> 

CX

!>          CX is COMPLEX*16 array, dimension (N)
!>          On input, the vector x.
!>          On output, CX is overwritten with c*x + s*y.
!> 

INCX

!>          INCX is INTEGER
!>          The increment between successive values of CX.  INCX <> 0.
!> 

CY

!>          CY is COMPLEX*16 array, dimension (N)
!>          On input, the vector y.
!>          On output, CY is overwritten with -s*x + c*y.
!> 

INCY

!>          INCY is INTEGER
!>          The increment between successive values of CY.  INCY <> 0.
!> 

C

!>          C is COMPLEX*16
!> 

S

!>          S is COMPLEX*16
!>          C and S define the matrix
!>             [  C   S  ].
!>             [ -S   C  ]
!> 

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.