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 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_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()