f77_rot Interface
public interface f77_rot
Generic old style interface for ROT. Supports s, d, c, z, cs, zd. See also: mfi_rot, srot, drot, crot, zrot, csrot, zdrot.
Subroutines
public pure subroutine srot(n, x, incx, y, incy, c, s)
Original interface for SROT See also: mfi_rot, f77_rot. SROT applies a plane rotation.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=REAL32), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx | |||
| real(kind=REAL32), | intent(in) | :: | y(*) | |||
| integer, | intent(in) | :: | incy | |||
| real(kind=REAL32), | intent(in) | :: | c | |||
| real(kind=REAL32), | intent(in) | :: | s |
public pure subroutine drot(n, x, incx, y, incy, c, s)
Original interface for DROT See also: mfi_rot, f77_rot. DROT applies a plane rotation.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=REAL64), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx | |||
| real(kind=REAL64), | intent(in) | :: | y(*) | |||
| integer, | intent(in) | :: | incy | |||
| real(kind=REAL64), | intent(in) | :: | c | |||
| real(kind=REAL64), | intent(in) | :: | s |
public pure subroutine crot(n, x, incx, y, incy, c, s)
Original interface for CROT See also: mfi_rot, f77_rot. CROT applies a plane rotation.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL32), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx | |||
| complex(kind=REAL32), | intent(in) | :: | y(*) | |||
| integer, | intent(in) | :: | incy | |||
| real(kind=REAL32), | intent(in) | :: | c | |||
| complex(kind=REAL32), | intent(in) | :: | s |
public pure subroutine zrot(n, x, incx, y, incy, c, s)
Original interface for ZROT See also: mfi_rot, f77_rot. ZROT applies a plane rotation.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL64), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx | |||
| complex(kind=REAL64), | intent(in) | :: | y(*) | |||
| integer, | intent(in) | :: | incy | |||
| real(kind=REAL64), | intent(in) | :: | c | |||
| complex(kind=REAL64), | intent(in) | :: | s |
public pure subroutine csrot(n, x, incx, y, incy, c, s)
Original interface for CSROT See also: mfi_rot, f77_rot. CSROT applies a plane rotation.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL32), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx | |||
| complex(kind=REAL32), | intent(in) | :: | y(*) | |||
| integer, | intent(in) | :: | incy | |||
| real(kind=REAL32), | intent(in) | :: | c | |||
| real(kind=REAL32), | intent(in) | :: | s |
public pure subroutine zdrot(n, x, incx, y, incy, c, s)
Original interface for ZDROT See also: mfi_rot, f77_rot. ZDROT applies a plane rotation.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL64), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx | |||
| complex(kind=REAL64), | intent(in) | :: | y(*) | |||
| integer, | intent(in) | :: | incy | |||
| real(kind=REAL64), | intent(in) | :: | c | |||
| real(kind=REAL64), | intent(in) | :: | s |