public interface hprfs
HPRFS improves the computed solution to a system of linear
equations when the coefficient matrix is Hermitian indefinite
and packed, and provides error bounds and backward error estimates
for the solution.
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=1),
|
intent(in) |
|
|
:: |
uplo |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nrhs |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
ap(*) |
|
|
complex(kind=sp),
|
intent(in) |
|
|
:: |
afp(*) |
|
|
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) |
|
|
:: |
uplo |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nrhs |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
ap(*) |
|
|
complex(kind=dp),
|
intent(in) |
|
|
:: |
afp(*) |
|
|
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