public interface gtrfs
GTRFS improves the computed solution to a system of linear
equations when the coefficient matrix is tridiagonal, and provides
error bounds and backward error estimates for the solution.
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=1),
|
intent(in) |
|
|
:: |
trans |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nrhs |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
dl(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
du(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
dlf(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
df(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
duf(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
du2(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ipiv(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
x(ldx,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldx |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
ferr(*) |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
berr(*) |
|
|
complex(kind=sp),
|
intent(out) |
|
|
:: |
work(*) |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
rwork(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=1),
|
intent(in) |
|
|
:: |
trans |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nrhs |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
dl(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
du(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
dlf(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
df(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
duf(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
du2(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ipiv(*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
x(ldx,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldx |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
ferr(*) |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
berr(*) |
|
|
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) |
|
|
:: |
trans |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nrhs |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
dl(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
du(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
dlf(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
df(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
duf(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
du2(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ipiv(*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
x(ldx,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldx |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
ferr(*) |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
berr(*) |
|
|
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) |
|
|
:: |
trans |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nrhs |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
dl(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
d(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
du(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
dlf(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
df(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
duf(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
du2(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ipiv(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
x(ldx,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldx |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
ferr(*) |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
berr(*) |
|
|
complex(kind=dp),
|
intent(out) |
|
|
:: |
work(*) |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
rwork(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Module Procedures