public interface gtcon
GTCON estimates the reciprocal of the condition number of a complex
tridiagonal matrix A using the LU factorization as computed by
CGTTRF.
An estimate is obtained for norm(inv(A)), and the reciprocal of the
condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=1),
|
intent(in) |
|
|
:: |
norm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
dl(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
du(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
du2(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ipiv(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
anorm |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
rcond |
|
|
complex(kind=sp),
|
intent(out) |
|
|
:: |
work(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=1),
|
intent(in) |
|
|
:: |
norm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
dl(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
du(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
du2(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ipiv(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
anorm |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
rcond |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
work(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
iwork(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=1),
|
intent(in) |
|
|
:: |
norm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
dl(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
du(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
du2(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ipiv(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
anorm |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
rcond |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
work(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
iwork(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=1),
|
intent(in) |
|
|
:: |
norm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
dl(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
du(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
du2(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ipiv(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
anorm |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
rcond |
|
|
complex(kind=dp),
|
intent(out) |
|
|
:: |
work(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Module Procedures