f77_rotg Interface
public interface f77_rotg
Generic old style interface for ROTG. Supports s, d, c, z. See also: mfi_rotg, srotg, drotg, crotg, zrotg.
Subroutines
public pure subroutine srotg(a, b, c, s)
Original interface for SROTG See also: mfi_rotg, f77_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, f77_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, f77_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, f77_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 |