Contents
zdrot - Apply a plane rotation.
SUBROUTINE ZDROT(N, X, INCX, Y, INCY, C, S)
DOUBLE PRECISION C, S
DOUBLE COMPLEX X(*), Y(*)
INTEGER N, INCX, INCY
SUBROUTINE ZDROT_64(N, X, INCX, Y, INCY, C, S)
DOUBLE PRECISION C, S
DOUBLE COMPLEX X(*), Y(*)
INTEGER*8 N, INCX, INCY
F95 INTERFACE
SUBROUTINE ROT([N], X, [INCX], Y, [INCY], C, S)
REAL(8) :: C, S
COMPLEX(8), DIMENSION(:) :: X, Y
INTEGER :: N, INCX, INCY
SUBROUTINE ROT_64([N], X, [INCX], Y, [INCY], C, S)
REAL(8) :: C, S
COMPLEX(8), DIMENSION(:) :: X, Y
INTEGER(8) :: N, INCX, INCY
C INTERFACE
#include <sunperf.h>
void zdrot(int n, doublecomplex *x, int incx, doublecomplex
*y, int incy, double c, double s);
void zdrot_64(long n, doublecomplex *x, long incx, doub-
lecomplex *y, long incy, double c, double s);
zdrot Apply a plane rotation, where the cos and sin (c and
s) are real and the vectors x and y are complex.
N (input)
On entry, N specifies the number of elements in
the vector. N must be at least one for the sub-
routine to have any visible effect. Unchanged on
exit.
X (input/output)
Before entry, the incremented array CX must
contain the vector x. Unchanged on exit.
INCX (input)
On entry, INCX specifies the increment for the
elements of CX. INCX must not be zero.
Unchanged on exit.
Y (input/output)
On entry, the incremented array CY must contain
the vector y. On exit, CY is overwritten by the
updated vector y.
INCY (input)
On entry, INCY specifies the increment for the
elements of CY. INCY must not be zero.
Unchanged on exit.
C (input)
On entry, the cosine. Unchanged on exit.
S (input)
On entry, the sin. Unchanged on exit.