SABER
|
Inverse of symmetric positive definite matrix routines. More...
Functions/Subroutines | |
subroutine, public | asa007_cholesky (mpl, n, nn, a, u, ierr) |
Compute cholesky decomposition. More... | |
subroutine, public | asa007_syminv (mpl, n, nn, a, c, ierr) |
Compute inverse of a symmetric matrix. More... | |
Variables | |
real(kind_real), parameter | eta = 1.0e-9_kind_real |
Inverse of symmetric positive definite matrix routines.
subroutine, public tools_asa007::asa007_cholesky | ( | type(mpl_type), intent(inout) | mpl, |
integer, intent(in) | n, | ||
integer, intent(in) | nn, | ||
real(kind_real), dimension(nn), intent(in) | a, | ||
real(kind_real), dimension(nn), intent(out) | u, | ||
integer, intent(out) | ierr | ||
) |
Compute cholesky decomposition.
[in,out] | mpl | MPI data |
[in] | n | Matrix rank |
[in] | nn | Half-matrix size (n*(n-1)/2) |
[in] | a | Matrix |
[out] | u | Matrix square-root |
[out] | ierr | Error status |
Definition at line 32 of file tools_asa007.F90.
subroutine, public tools_asa007::asa007_syminv | ( | type(mpl_type), intent(inout) | mpl, |
integer, intent(in) | n, | ||
integer, intent(in) | nn, | ||
real(kind_real), dimension(nn), intent(in) | a, | ||
real(kind_real), dimension(nn), intent(out) | c, | ||
integer, intent(out) | ierr | ||
) |
Compute inverse of a symmetric matrix.
[in,out] | mpl | MPI data |
[in] | n | Matrix rank |
[in] | nn | Half-matrix size (n*(n-1)/2) |
[in] | a | Matrix |
[out] | c | Matrix inverse |
[out] | ierr | Error status |
Definition at line 111 of file tools_asa007.F90.
real(kind_real), parameter tools_asa007::eta = 1.0e-9_kind_real |
Definition at line 21 of file tools_asa007.F90.