rot

crot

Functions

void crot(
    const INT           n,
          c64* restrict CX,
    const INT           incx,
          c64* restrict CY,
    const INT           incy,
    const f32           c,
    const c64           s
);

void crot(const INT n, c64 *restrict CX, const INT incx, c64 *restrict CY, const INT incy, const f32 c, const c64 s)

CROT applies a plane rotation, where the cos (C) is real and the sin (S) is complex, and the vectors CX and CY are complex.

Parameters

in

n

The number of elements in the vectors CX and CY.

inout

CX

Complex*16 array, dimension (N). On input, the vector X. On output, CX is overwritten with C*X + S*Y.

in

incx

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

inout

CY

Complex*16 array, dimension (N). On input, the vector Y. On output, CY is overwritten with -CONJG(S)*X + C*Y.

in

incy

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

in

c

Single precision.

in

s

Complex*16. C and S define a rotation [ C S ] [ -conjg(S) C ] where C*C + S*CONJG(S) = 1.0.

zrot

Functions

void zrot(
    const INT            n,
          c128* restrict CX,
    const INT            incx,
          c128* restrict CY,
    const INT            incy,
    const f64            c,
    const c128           s
);

void zrot(const INT n, c128 *restrict CX, const INT incx, c128 *restrict CY, const INT incy, const f64 c, const c128 s)

ZROT applies a plane rotation, where the cos (C) is real and the sin (S) is complex, and the vectors CX and CY are complex.

Parameters

in

n

The number of elements in the vectors CX and CY.

inout

CX

Complex*16 array, dimension (N). On input, the vector X. On output, CX is overwritten with C*X + S*Y.

in

incx

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

inout

CY

Complex*16 array, dimension (N). On input, the vector Y. On output, CY is overwritten with -CONJG(S)*X + C*Y.

in

incy

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

in

c

Double precision.

in

s

Complex*16. C and S define a rotation [ C S ] [ -conjg(S) C ] where C*C + S*CONJG(S) = 1.0.