Module for the solution of Symmetric Toeplitz Linear Systems.
More...
Data Types |
type | block_type |
Functions/Subroutines |
subroutine, public | sp_tpsymm_solver (T, x, b, nb, piv) |
| Solves the linear system T x = b, where T is a symmetric Toeplitz matrix.
|
real(kind=r_kind), public | sp_tpsymm_nrm1 (T) |
| Computes the 1-norm of a symmetric Toeplitz matrix T.
|
subroutine, public | sp_tpsymm_gemv (alpha, T, x, b) |
| Performs the operation b = b + alpha * T * x, where T is a symmetric Toeplitz matrix.
|
Detailed Description
Module for the solution of Symmetric Toeplitz Linear Systems.
- Date:
- April, 2011
- Author:
- StructPack team
Function/Subroutine Documentation
subroutine,public sp_tpsymm::sp_tpsymm_gemv |
( |
real(kind=r_kind),intent(in) |
alpha, |
|
|
real(kind=r_kind),dimension(:),intent(in) |
T, |
|
|
real(kind=r_kind),dimension(:),intent(in) |
x, |
|
|
real(kind=r_kind),dimension(:),intent(inout) |
b |
|
) |
| |
Performs the operation b = b + alpha * T * x, where T is a symmetric Toeplitz matrix.
- Parameters:
-
[in] | alpha | Scalar alpha. |
[in] | T | First column (row) of matrix T. |
[in] | x | Vector x. |
[in,out] | b | Vector b. Changed on output. |
real(kind=r_kind),public sp_tpsymm::sp_tpsymm_nrm1 |
( |
real(kind=r_kind),dimension(:),intent(in) |
T | ) |
|
Computes the 1-norm of a symmetric Toeplitz matrix T.
- Parameters:
-
[in] | T | First column (row) of matrix T. |
- Returns:
- 1-norm of T.
subroutine,public sp_tpsymm::sp_tpsymm_solver |
( |
real(kind=r_kind),dimension(:),intent(in) |
T, |
|
|
real(kind=r_kind),dimension(:),intent(out) |
x, |
|
|
real(kind=r_kind),dimension(:),intent(inout) |
b, |
|
|
integer,intent(in) |
nb, |
|
|
logical,intent(in) |
piv |
|
) |
| |
Solves the linear system T x = b, where T is a symmetric Toeplitz matrix.
- Parameters:
-
[in] | T | First column (row) of matrix T. |
[out] | x | Solution vector of Tx=b returned by this routine. |
[in,out] | b | Right hand side vector of Tx=b. Changed on output. |
[in] | nb | Block size. |
[in] | piv | Uses local diagonal pivoting if piv=.TRUE.. |