mfi_zdrot Subroutine
public pure subroutine mfi_zdrot(x, y, c, s, incx, incy)
Modern interface for zdrot. See also: mfi_rot, f77_rot. Given two vectors x and y, each vector element of these vectors is replaced as follows:
xi = c*xi + s*yi
yi = c*yi - conj(s)*xi
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| complex(kind=REAL64), | intent(inout) | :: | x(:) | |||
| complex(kind=REAL64), | intent(inout) | :: | y(:) | |||
| real(kind=REAL64), | intent(in) | :: | c | |||
| real(kind=REAL64), | intent(in) | :: | s | |||
| integer, | intent(in), | optional | :: | incx | ||
| integer, | intent(in), | optional | :: | incy |