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

Added new methd for two combined axpbys

Browse Source
This commit is contained in:
Salvatore Filippone
2024-02-12 14:15:19 +01:00
parent b49ce6b610
commit 14c4ff0f32
17 changed files with 296 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/psb_d_pde3d.F90
+4 -4
View File
@@ -592,9 +592,9 @@ contains
t1 = psb_wtime()
if (info == psb_success_) then
if (present(amold)) then
call psb_spasb(a,desc_a,info,mold=amold,bld_and=.false.)
call psb_spasb(a,desc_a,info,mold=amold)
else
call psb_spasb(a,desc_a,info,afmt=afmt,bld_and=.false.)
call psb_spasb(a,desc_a,info,afmt=afmt)
end if
end if
call psb_barrier(ctxt)
@@ -868,8 +868,8 @@ program psb_d_pde3d
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
call psb_print_timers(ctxt)
call psb_exit(ctxt)
call psb_exit(ctxt)
stop
9999 call psb_error(ctxt)