f77_lartg Interface

public interface f77_lartg

Generic old style interface for LARTG. Supports s, d, c, z. See also: mfi_lartg, slartg, dlartg, clartg, zlartg.


Subroutines

public pure subroutine slartg(f, g, c, s, r)

Original interface for SLARTG See also: mfi_lartg, f77_lartg.

Arguments

Type IntentOptional Attributes Name
real(kind=REAL32), intent(inout) :: f
real(kind=REAL32), intent(inout) :: g
real(kind=wp), intent(inout) :: c
real(kind=REAL32), intent(inout) :: s
real(kind=REAL32), intent(inout) :: r

public pure subroutine dlartg(f, g, c, s, r)

Original interface for DLARTG See also: mfi_lartg, f77_lartg.

Arguments

Type IntentOptional Attributes Name
real(kind=REAL64), intent(inout) :: f
real(kind=REAL64), intent(inout) :: g
real(kind=wp), intent(inout) :: c
real(kind=REAL64), intent(inout) :: s
real(kind=REAL64), intent(inout) :: r

public pure subroutine clartg(f, g, c, s, r)

Original interface for CLARTG See also: mfi_lartg, f77_lartg.

Arguments

Type IntentOptional Attributes Name
complex(kind=REAL32), intent(inout) :: f
complex(kind=REAL32), intent(inout) :: g
real(kind=wp), intent(inout) :: c
complex(kind=REAL32), intent(inout) :: s
complex(kind=REAL32), intent(inout) :: r

public pure subroutine zlartg(f, g, c, s, r)

Original interface for ZLARTG See also: mfi_lartg, f77_lartg.

Arguments

Type IntentOptional Attributes Name
complex(kind=REAL64), intent(inout) :: f
complex(kind=REAL64), intent(inout) :: g
real(kind=wp), intent(inout) :: c
complex(kind=REAL64), intent(inout) :: s
complex(kind=REAL64), intent(inout) :: r