mfi_blas_rot Module
Interfaces
public interface mfi_rot
Generic modern interface for ROT. Supports s, d, c, z, cs, zd. See also: srot, drot, crot, zrot, csrot, zdrot.
-
public pure subroutine mfi_srot(x, y, c, s, incx, incy)
Modern interface for f77_rot. 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 - s*xiArguments
Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x(:) real(kind=REAL32), intent(inout) :: y(:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy -
public pure subroutine mfi_drot(x, y, c, s, incx, incy)
Modern interface for f77_rot. 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 - s*xiArguments
Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x(:) real(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 -
public pure subroutine mfi_crot(x, y, c, s, incx, incy)
Modern interface for f77_rot. 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)*xiArguments
Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x(:) complex(kind=REAL32), intent(inout) :: y(:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy -
public pure subroutine mfi_zrot(x, y, c, s, incx, incy)
Modern interface for f77_rot. 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)*xiArguments
Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x(:) complex(kind=REAL64), intent(inout) :: y(:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy -
public pure subroutine mfi_csrot(x, y, c, s, incx, incy)
Modern interface for f77_rot. 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)*xiArguments
Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x(:) complex(kind=REAL32), intent(inout) :: y(:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy -
public pure subroutine mfi_zdrot(x, y, c, s, incx, incy)
Modern interface for f77_rot. 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)*xiArguments
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
Subroutines
public pure subroutine mfi_srot(x, y, c, s, incx, incy)
Modern interface for f77_rot. See also: mfi_rot, f77_rot. Given two vectors x and y, each vector element of these vectors is replaced as follows:
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=REAL32), | intent(inout) | :: | x(:) | |||
| real(kind=REAL32), | intent(inout) | :: | y(:) | |||
| real(kind=REAL32), | intent(in) | :: | c | |||
| real(kind=REAL32), | intent(in) | :: | s | |||
| integer, | intent(in), | optional | :: | incx | ||
| integer, | intent(in), | optional | :: | incy |
public pure subroutine mfi_drot(x, y, c, s, incx, incy)
Modern interface for f77_rot. See also: mfi_rot, f77_rot. Given two vectors x and y, each vector element of these vectors is replaced as follows:
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=REAL64), | intent(inout) | :: | x(:) | |||
| real(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 |
public pure subroutine mfi_crot(x, y, c, s, incx, incy)
Modern interface for f77_rot. See also: mfi_rot, f77_rot. Given two vectors x and y, each vector element of these vectors is replaced as follows:
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| complex(kind=REAL32), | intent(inout) | :: | x(:) | |||
| complex(kind=REAL32), | intent(inout) | :: | y(:) | |||
| real(kind=REAL32), | intent(in) | :: | c | |||
| complex(kind=REAL32), | intent(in) | :: | s | |||
| integer, | intent(in), | optional | :: | incx | ||
| integer, | intent(in), | optional | :: | incy |
public pure subroutine mfi_zrot(x, y, c, s, incx, incy)
Modern interface for f77_rot. See also: mfi_rot, f77_rot. Given two vectors x and y, each vector element of these vectors is replaced as follows:
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| complex(kind=REAL64), | intent(inout) | :: | x(:) | |||
| complex(kind=REAL64), | intent(inout) | :: | y(:) | |||
| real(kind=REAL64), | intent(in) | :: | c | |||
| complex(kind=REAL64), | intent(in) | :: | s | |||
| integer, | intent(in), | optional | :: | incx | ||
| integer, | intent(in), | optional | :: | incy |
public pure subroutine mfi_csrot(x, y, c, s, incx, incy)
Modern interface for f77_rot. See also: mfi_rot, f77_rot. Given two vectors x and y, each vector element of these vectors is replaced as follows:
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| complex(kind=REAL32), | intent(inout) | :: | x(:) | |||
| complex(kind=REAL32), | intent(inout) | :: | y(:) | |||
| real(kind=REAL32), | intent(in) | :: | c | |||
| real(kind=REAL32), | intent(in) | :: | s | |||
| integer, | intent(in), | optional | :: | incx | ||
| integer, | intent(in), | optional | :: | incy |
public pure subroutine mfi_zdrot(x, y, c, s, incx, incy)
Modern interface for f77_rot. See also: mfi_rot, f77_rot. Given two vectors x and y, each vector element of these vectors is replaced as follows:
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 |