From c590c5a3ee9cf63400bc7ce3091e30eb7aa0f9cc Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 21 Mar 2014 09:00:56 +0000 Subject: [PATCH] psblas3: test/kernel/d_file_spmv.f90 test/kernel/pdgenspmv.f90 test/kernel/s_file_spmv.f90 Simplified flops count. --- test/kernel/d_file_spmv.f90 | 2 +- test/kernel/pdgenspmv.f90 | 2 +- test/kernel/s_file_spmv.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/test/kernel/d_file_spmv.f90 b/test/kernel/d_file_spmv.f90 index 3d139d3e..30bcb3bb 100644 --- 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 diff --git a/test/kernel/pdgenspmv.f90 b/test/kernel/pdgenspmv.f90 index fe9b33ce..e252d5f5 100644 --- 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 diff --git a/test/kernel/s_file_spmv.f90 b/test/kernel/s_file_spmv.f90 index 4cdd57fa..d747b533 100644 --- 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