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

Fixes for sundial interfacing to VECT and LINSOLVE (rgmres)

Browse Source
This commit is contained in:
sfilippone
2026-05-29 14:00:57 +02:00
parent a988b33cd5
commit 18a9ebbd8b
16 changed files with 208 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_base_vect_mod.F90
+4 -3
View File
@@ -1483,10 +1483,10 @@ contains
integer(psb_ipk_) :: i, n
info = 0
if (z%is_dev()) call z%sync()
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
call z%div(x%v,y%v,info)
call x%set_host()
end subroutine c_base_div_v2
!
!> Function base_div_v_check
@@ -1506,6 +1506,7 @@ contains
info = 0
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
call x%div(x%v,y%v,info,flag)
end subroutine c_base_div_v_check
base/modules/serial/psb_d_base_vect_mod.F90
+4 -3
View File
@@ -1490,10 +1490,10 @@ contains
integer(psb_ipk_) :: i, n
info = 0
if (z%is_dev()) call z%sync()
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
call z%div(x%v,y%v,info)
call x%set_host()
end subroutine d_base_div_v2
!
!> Function base_div_v_check
@@ -1513,6 +1513,7 @@ contains
info = 0
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
call x%div(x%v,y%v,info,flag)
end subroutine d_base_div_v_check
base/modules/serial/psb_d_vect_mod.F90
-2
View File
@@ -418,8 +418,6 @@ contains
class(psb_d_vect_type), intent(in) :: x
integer(psb_ipk_) :: res
res = 0
write(0,*) allocated(x%v)
if (allocated(x%v)) write(0,*) allocated(x%v%v)
if (allocated(x%v)) res = x%v%get_nrows()
end function d_vect_get_nrows
base/modules/serial/psb_s_base_vect_mod.F90
+4 -3
View File
@@ -1490,10 +1490,10 @@ contains
integer(psb_ipk_) :: i, n
info = 0
if (z%is_dev()) call z%sync()
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
call z%div(x%v,y%v,info)
call x%set_host()
end subroutine s_base_div_v2
!
!> Function base_div_v_check
@@ -1513,6 +1513,7 @@ contains
info = 0
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
call x%div(x%v,y%v,info,flag)
end subroutine s_base_div_v_check
base/modules/serial/psb_z_base_vect_mod.F90
+4 -3
View File
@@ -1483,10 +1483,10 @@ contains
integer(psb_ipk_) :: i, n
info = 0
if (z%is_dev()) call z%sync()
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
call z%div(x%v,y%v,info)
call x%set_host()
end subroutine z_base_div_v2
!
!> Function base_div_v_check
@@ -1506,6 +1506,7 @@ contains
info = 0
if (x%is_dev()) call x%sync()
if (y%is_dev()) call y%sync()
call x%div(x%v,y%v,info,flag)
end subroutine z_base_div_v_check