f77_blas_rotg Module
Interfaces
public interface f77_rotg
Generic old style interface for ROTG. Supports s, d, c, z. See also: mfi_rotg, srotg, drotg, crotg, zrotg.
-
public pure subroutine srotg(a, b, c, s)
Original interface for SROTG See also: mfi_rotg, rotg. srotg generates a Givens rotation with real cosine and complex sine:
[ c s ] [ a ] = [ r ] [ -s c ] [ b ] [ 0 ]satisfying
c**2 + s**2 = 1.Arguments
Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a real(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c real(kind=REAL32), intent(out) :: s -
public pure subroutine drotg(a, b, c, s)
Original interface for DROTG See also: mfi_rotg, rotg. drotg generates a Givens rotation with real cosine and complex sine:
[ c s ] [ a ] = [ r ] [ -s c ] [ b ] [ 0 ]satisfying
c**2 + s**2 = 1.Arguments
Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a real(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c real(kind=REAL64), intent(out) :: s -
public pure subroutine crotg(a, b, c, s)
Original interface for CROTG See also: mfi_rotg, rotg. crotg generates a Givens rotation with real cosine and complex sine:
[ c s ] [ a ] = [ r ] [ -conjg(s) c ] [ b ] [ 0 ]where c is real, s is complex, and
c**2 + conjg(s)*s = 1.Arguments
Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a complex(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c complex(kind=REAL32), intent(out) :: s -
public pure subroutine zrotg(a, b, c, s)
Original interface for ZROTG See also: mfi_rotg, rotg. zrotg generates a Givens rotation with real cosine and complex sine:
[ c s ] [ a ] = [ r ] [ -conjg(s) c ] [ b ] [ 0 ]where c is real, s is complex, and
c**2 + conjg(s)*s = 1.Arguments
Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a complex(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c complex(kind=REAL64), intent(out) :: s