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/pdgenspmv.f90
 test/kernel/s_file_spmv.f90

Simplified flops count.
This commit is contained in:
Salvatore Filippone
2014-03-21 09:00:56 +00:00
parent e8acd58814
commit c590c5a3ee
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/kernel/d_file_spmv.f90
+1 -1
View File
@@ -247,7 +247,7 @@ program d_file_spmv
call psb_sum(ictxt,descsize)
if (iam==psb_root_) then
flops = 1.d1*2*annz
flops = 2.d0*times*annz
tflops=flops
write(psb_out_unit,'("Matrix: ",a)') mtrx_file
write(psb_out_unit,'("Test on : ",i20," processors")') np
test/kernel/pdgenspmv.f90
+1 -1
View File
@@ -141,7 +141,7 @@ program pdgenspmv
call psb_sum(ictxt,descsize)
if (iam == psb_root_) then
flops = 1.d1*2*annz
flops = 2.d0*times*annz
tflops=flops
write(psb_out_unit,'("Matrix: ell1 ",i0)') idim
write(psb_out_unit,'("Test on : ",i20," processors")') np
test/kernel/s_file_spmv.f90
+1 -1
View File
@@ -247,7 +247,7 @@ program s_file_spmv
call psb_sum(ictxt,descsize)
if (iam==psb_root_) then
flops = 1.d1*2*annz
flops = 2.d0*times*annz
tflops=flops
write(psb_out_unit,'("Matrix: ",a)') mtrx_file
write(psb_out_unit,'("Test on : ",i20," processors")') np