LAQTR: solves the real quasi-triangular system op(T)*p = scale*c, if LREAL = .TRUE. or the complex quasi-triangular systems op(T + iB)*(p+iq) = scale*(c+id), if LREAL = .FALSE. in real arithmetic, where T is upper quasi-triangular. If LREAL = .FALSE., then the first diagonal block of T must be 1 by 1, B is the specially structured matrix B = [ b(1) b(2) ... b(n) ] [ w ] [ w ] [ . ] [ w ] op(A) = A or A**T, A**T denotes the transpose of matrix A. On input, X = [ c ]. On output, X = [ p ]. [ d ] [ q ] This subroutine is designed for the condition number estimation in routine DTRSNA.
More...
|
subroutine | dlaqtr (ltran, lreal, n, t, ldt, b, w, scale, x, work, info) |
|
| la_dlaqtr |
|
| la_qlaqtr |
|
subroutine | slaqtr (ltran, lreal, n, t, ldt, b, w, scale, x, work, info) |
|
| la_slaqtr |
|
LAQTR: solves the real quasi-triangular system op(T)*p = scale*c, if LREAL = .TRUE. or the complex quasi-triangular systems op(T + iB)*(p+iq) = scale*(c+id), if LREAL = .FALSE. in real arithmetic, where T is upper quasi-triangular. If LREAL = .FALSE., then the first diagonal block of T must be 1 by 1, B is the specially structured matrix B = [ b(1) b(2) ... b(n) ] [ w ] [ w ] [ . ] [ w ] op(A) = A or A**T, A**T denotes the transpose of matrix A. On input, X = [ c ]. On output, X = [ p ]. [ d ] [ q ] This subroutine is designed for the condition number estimation in routine DTRSNA.
◆ dlaqtr()
subroutine la_lapack::laqtr::dlaqtr |
( |
logical(lk), intent(in) |
ltran, |
|
|
logical(lk), intent(in) |
lreal, |
|
|
integer(ilp), intent(in) |
n, |
|
|
real(dp), dimension(ldt,*), intent(in) |
t, |
|
|
integer(ilp), intent(in) |
ldt, |
|
|
real(dp), dimension(*), intent(in) |
b, |
|
|
real(dp), intent(in) |
w, |
|
|
real(dp), intent(out) |
scale, |
|
|
real(dp), dimension(*), intent(inout) |
x, |
|
|
real(dp), dimension(*), intent(out) |
work, |
|
|
integer(ilp), intent(out) |
info |
|
) |
| |
◆ la_dlaqtr()
la_lapack::laqtr::la_dlaqtr |
◆ la_qlaqtr()
la_lapack::laqtr::la_qlaqtr |
◆ la_slaqtr()
la_lapack::laqtr::la_slaqtr |
◆ slaqtr()
subroutine la_lapack::laqtr::slaqtr |
( |
logical(lk), intent(in) |
ltran, |
|
|
logical(lk), intent(in) |
lreal, |
|
|
integer(ilp), intent(in) |
n, |
|
|
real(sp), dimension(ldt,*), intent(in) |
t, |
|
|
integer(ilp), intent(in) |
ldt, |
|
|
real(sp), dimension(*), intent(in) |
b, |
|
|
real(sp), intent(in) |
w, |
|
|
real(sp), intent(out) |
scale, |
|
|
real(sp), dimension(*), intent(inout) |
x, |
|
|
real(sp), dimension(*), intent(out) |
work, |
|
|
integer(ilp), intent(out) |
info |
|
) |
| |
The documentation for this interface was generated from the following file: