psblas3:

test/kernel/d_file_spmv.f90 test/kernel/pdgenspmv.f90 test/kernel/s_file_spmv.f90 Simplified flops count.
11 years ago · c590c5a3ee
parent e8acd58814
commit c590c5a3ee
3 changed files with 3 additions and 3 deletions
--- a/test/kernel/d_file_spmv.f90
+++ b/test/kernel/d_file_spmv.f90
@ -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
--- a/test/kernel/pdgenspmv.f90
+++ b/test/kernel/pdgenspmv.f90
@ -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
--- a/test/kernel/s_file_spmv.f90
+++ b/test/kernel/s_file_spmv.f90
@ -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