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

psblas3:

Browse Source 
test/kernel/d_file_spmv.f90
 test/kernel/s_file_spmv.f90

Fix matrix distribution
This commit is contained in:
Salvatore Filippone
2017-03-08 17:27:26 +00:00
parent f2cf78e520
commit 188a28bf3a
2 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/kernel/d_file_spmv.f90
+1
View File
@@ -166,6 +166,7 @@ program d_file_spmv
end if
! switch over different partition types
write(psb_out_unit,'("Number of processors : ",i0)')np
if (ipart == 0) then
call psb_barrier(ictxt)
if (iam==psb_root_) write(psb_out_unit,'("Partition type: block")')
test/kernel/s_file_spmv.f90
+1
View File
@@ -166,6 +166,7 @@ program s_file_spmv
end if
! switch over different partition types
write(psb_out_unit,'("Number of processors : ",i0)')np
if (ipart == 0) then
call psb_barrier(ictxt)
if (iam==psb_root_) write(psb_out_unit,'("Partition type: block")')