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

Fix reinit

Browse Source
This commit is contained in:
Salvatore Filippone
2022-12-05 09:57:23 +01:00
parent 7028cb656a
commit d4b6d4dfa1
12 changed files with 0 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_coo_impl.F90
-1
View File
@@ -537,7 +537,6 @@ subroutine psb_c_coo_reinit(a,clear)
if (a%is_dev()) call a%sync()
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = czero
call a%set_host()
base/serial/impl/psb_c_csc_impl.f90
-1
View File
@@ -2588,7 +2588,6 @@ subroutine psb_c_csc_reinit(a,clear)
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = czero
call a%set_upd()
base/serial/impl/psb_c_csr_impl.f90
-1
View File
@@ -2722,7 +2722,6 @@ subroutine psb_c_csr_reinit(a,clear)
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = czero
call a%set_upd()
base/serial/impl/psb_d_coo_impl.F90
-1
View File
@@ -537,7 +537,6 @@ subroutine psb_d_coo_reinit(a,clear)
if (a%is_dev()) call a%sync()
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = dzero
call a%set_host()
base/serial/impl/psb_d_csc_impl.f90
-1
View File
@@ -2588,7 +2588,6 @@ subroutine psb_d_csc_reinit(a,clear)
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = dzero
call a%set_upd()
base/serial/impl/psb_d_csr_impl.f90
-1
View File
@@ -2722,7 +2722,6 @@ subroutine psb_d_csr_reinit(a,clear)
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = dzero
call a%set_upd()
base/serial/impl/psb_s_coo_impl.F90
-1
View File
@@ -537,7 +537,6 @@ subroutine psb_s_coo_reinit(a,clear)
if (a%is_dev()) call a%sync()
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = szero
call a%set_host()
base/serial/impl/psb_s_csc_impl.f90
-1
View File
@@ -2588,7 +2588,6 @@ subroutine psb_s_csc_reinit(a,clear)
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = szero
call a%set_upd()
base/serial/impl/psb_s_csr_impl.f90
-1
View File
@@ -2722,7 +2722,6 @@ subroutine psb_s_csr_reinit(a,clear)
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = szero
call a%set_upd()
base/serial/impl/psb_z_coo_impl.F90
-1
View File
@@ -537,7 +537,6 @@ subroutine psb_z_coo_reinit(a,clear)
if (a%is_dev()) call a%sync()
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = zzero
call a%set_host()
base/serial/impl/psb_z_csc_impl.f90
-1
View File
@@ -2588,7 +2588,6 @@ subroutine psb_z_csc_reinit(a,clear)
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = zzero
call a%set_upd()
base/serial/impl/psb_z_csr_impl.f90
-1
View File
@@ -2722,7 +2722,6 @@ subroutine psb_z_csr_reinit(a,clear)
if (a%is_bld() .or. a%is_upd()) then
! do nothing
return
else if (a%is_asb()) then
if (clear_) a%val(:) = zzero
call a%set_upd()