pprfs Interface

public interface pprfs

PPRFS improves the computed solution to a system of linear equations when the coefficient matrix is Hermitian positive definite and packed, and provides error bounds and backward error estimates for the solution.

Subroutines

public pure subroutine cpprfs(uplo, n, nrhs, ap, afp, b, ldb, x, ldx, ferr, berr, work, rwork, 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=sp),	intent(in)			::	ap(*)
complex(kind=sp),	intent(in)			::	afp(*)
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

public pure subroutine dpprfs(uplo, n, nrhs, ap, afp, b, ldb, x, ldx, ferr, berr, work, iwork, 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
real(kind=dp),	intent(in)			::	ap(*)
real(kind=dp),	intent(in)			::	afp(*)
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

public pure subroutine spprfs(uplo, n, nrhs, ap, afp, b, ldb, x, ldx, ferr, berr, work, iwork, 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
real(kind=sp),	intent(in)			::	ap(*)
real(kind=sp),	intent(in)			::	afp(*)
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

public pure subroutine zpprfs(uplo, n, nrhs, ap, afp, b, ldb, x, ldx, ferr, berr, work, rwork, 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(*)
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

public interface stdlib_cpprfs()

Arguments

None

public interface stdlib_dpprfs()

Arguments

None

public interface stdlib_spprfs()

Arguments

None

public interface stdlib_zpprfs()

Arguments

None