latps Interface

public interface latps

LATPS solves one of the triangular systems A * x = sb, AT * x = sb, or AH * x = s*b, with scaling to prevent overflow, where A is an upper or lower triangular matrix stored in packed form. Here AT denotes the transpose of A, A*H denotes the conjugate transpose of A, x and b are n-element vectors, and s is a scaling factor, usually less than or equal to 1, chosen so that the components of x will be less than the overflow threshold. If the unscaled problem will not cause overflow, the Level 2 BLAS routine CTPSV is called. If the matrix A is singular (A(j,j) = 0 for some j), then s is set to 0 and a non-trivial solution to Ax = 0 is returned.


Subroutines

public pure subroutine clatps(uplo, trans, diag, normin, n, ap, x, scale, cnorm, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
character(len=1), intent(in) :: normin
integer(kind=ilp), intent(in) :: n
complex(kind=sp), intent(in) :: ap(*)
complex(kind=sp), intent(inout) :: x(*)
real(kind=sp), intent(out) :: scale
real(kind=sp), intent(inout) :: cnorm(*)
integer(kind=ilp), intent(out) :: info

public pure subroutine dlatps(uplo, trans, diag, normin, n, ap, x, scale, cnorm, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
character(len=1), intent(in) :: normin
integer(kind=ilp), intent(in) :: n
real(kind=dp), intent(in) :: ap(*)
real(kind=dp), intent(inout) :: x(*)
real(kind=dp), intent(out) :: scale
real(kind=dp), intent(inout) :: cnorm(*)
integer(kind=ilp), intent(out) :: info

public pure subroutine slatps(uplo, trans, diag, normin, n, ap, x, scale, cnorm, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
character(len=1), intent(in) :: normin
integer(kind=ilp), intent(in) :: n
real(kind=sp), intent(in) :: ap(*)
real(kind=sp), intent(inout) :: x(*)
real(kind=sp), intent(out) :: scale
real(kind=sp), intent(inout) :: cnorm(*)
integer(kind=ilp), intent(out) :: info

public pure subroutine zlatps(uplo, trans, diag, normin, n, ap, x, scale, cnorm, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
character(len=1), intent(in) :: normin
integer(kind=ilp), intent(in) :: n
complex(kind=dp), intent(in) :: ap(*)
complex(kind=dp), intent(inout) :: x(*)
real(kind=dp), intent(out) :: scale
real(kind=dp), intent(inout) :: cnorm(*)
integer(kind=ilp), intent(out) :: info

Module Procedures

public interface stdlib_clatps()

Arguments

None

public interface stdlib_dlatps()

Arguments

None

public interface stdlib_slatps()

Arguments

None

public interface stdlib_zlatps()

Arguments

None