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

Fix multivect handling

Browse Source
This commit is contained in:
sfilippone
2026-01-13 15:26:11 +01:00
parent 82d7f0fe7e
commit 3337a12e59
36 changed files with 2206 additions and 814 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/tools/psb_l_tools_mod.F90
+2 -1
View File
@@ -79,7 +79,7 @@ Module psb_l_tools_mod
logical, intent(in), optional :: scratch
integer(psb_ipk_), optional, intent(in) :: dupl
end subroutine psb_lasb_vect
subroutine psb_lasb_vect_r2(x, desc_a, info,mold, scratch)
subroutine psb_lasb_vect_r2(x, desc_a, info,mold, scratch,dupl)
import
implicit none
type(psb_desc_type), intent(in) :: desc_a
@@ -87,6 +87,7 @@ Module psb_l_tools_mod
integer(psb_ipk_), intent(out) :: info
class(psb_l_base_vect_type), intent(in), optional :: mold
logical, intent(in), optional :: scratch
integer(psb_ipk_), optional, intent(in) :: dupl
end subroutine psb_lasb_vect_r2
subroutine psb_lasb_multivect(x, desc_a, info,mold, scratch, n)
import