fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Implemented right triangular solve

Browse Source
This commit is contained in:
fdurastante
2025-04-08 23:26:46 +02:00
parent 96b509417a
commit e423e149fa
7 changed files with 183 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psblas/psb_d_psblas_mod.F90
+13 -1
View File
@@ -543,7 +543,7 @@ module psb_d_psblas_mod
subroutine psb_dmlt_multivect(x, y, res, desc_a,info,global)
import :: psb_desc_type, psb_dpk_, psb_ipk_, &
& psb_d_multivect_type, psb_dspmat_type
real(psb_dpk_), dimension(:,:), allocatable :: res
real(psb_dpk_), dimension(:,:), allocatable, intent(inout) :: res
type(psb_d_multivect_type), intent(inout) :: x, y
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
@@ -588,6 +588,18 @@ module psb_d_psblas_mod
integer(psb_ipk_), intent(out) :: info
logical, intent(in) :: flag
end subroutine psb_ddiv_vect2_check
subroutine psb_ddiv_trslv(x,a,desc_a,uplo,info,alpha,trans,diag)
import :: psb_desc_type, psb_ipk_, &
& psb_dpk_, psb_d_multivect_type
type(psb_d_multivect_type), intent (inout) :: x
real(psb_dpk_), intent (in), dimension(:,:) :: a
type(psb_desc_type), intent (in) :: desc_a
character(len=1), intent(in) :: uplo
integer(psb_ipk_), intent(out) :: info
real(psb_dpk_), intent (in), optional :: alpha
character(len=1), intent(in), optional :: trans
character(len=1), intent(in), optional :: diag
end subroutine psb_ddiv_trslv
end interface
interface psb_geinv