ptrfs Interface

public interface ptrfs

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

Subroutines

public pure subroutine cptrfs(uplo, n, nrhs, d, e, df, ef, 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
real(kind=sp),	intent(in)			::	d(*)
complex(kind=sp),	intent(in)			::	e(*)
real(kind=sp),	intent(in)			::	df(*)
complex(kind=sp),	intent(in)			::	ef(*)
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 dptrfs(n, nrhs, d, e, df, ef, b, ldb, x, ldx, ferr, berr, work, info)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ilp),	intent(in)			::	n
integer(kind=ilp),	intent(in)			::	nrhs
real(kind=dp),	intent(in)			::	d(*)
real(kind=dp),	intent(in)			::	e(*)
real(kind=dp),	intent(in)			::	df(*)
real(kind=dp),	intent(in)			::	ef(*)
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)			::	info

public pure subroutine sptrfs(n, nrhs, d, e, df, ef, b, ldb, x, ldx, ferr, berr, work, info)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ilp),	intent(in)			::	n
integer(kind=ilp),	intent(in)			::	nrhs
real(kind=sp),	intent(in)			::	d(*)
real(kind=sp),	intent(in)			::	e(*)
real(kind=sp),	intent(in)			::	df(*)
real(kind=sp),	intent(in)			::	ef(*)
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)			::	info

public pure subroutine zptrfs(uplo, n, nrhs, d, e, df, ef, 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
real(kind=dp),	intent(in)			::	d(*)
complex(kind=dp),	intent(in)			::	e(*)
real(kind=dp),	intent(in)			::	df(*)
complex(kind=dp),	intent(in)			::	ef(*)
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_cptrfs()

Arguments

None

public interface stdlib_dptrfs()

Arguments

None

public interface stdlib_sptrfs()

Arguments

None

public interface stdlib_zptrfs()

Arguments

None