Fix time measurements.

7 years ago · 11f25be218
parent 5b0bd2694b
commit 11f25be218
4 changed files with 4 additions and 4 deletions
--- a/tests/pdegen/mld_d_pde2d.f90
+++ b/tests/pdegen/mld_d_pde2d.f90
@ -189,7 +189,7 @@ contains
    n   = m
    nnz = ((n*7)/(np))
    if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
-
+    t0 = psb_wtime()
    select case(partition_)
    case(1)
      ! A BLOCK partition 
--- a/tests/pdegen/mld_d_pde3d.f90
+++ b/tests/pdegen/mld_d_pde3d.f90
@ -191,7 +191,7 @@ contains
    n   = m
    nnz = ((n*9)/(np))
    if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
-
+    t0 = psb_wtime()
    select case(partition_)
    case(1)
      ! A BLOCK partition 
--- a/tests/pdegen/mld_s_pde2d.f90
+++ b/tests/pdegen/mld_s_pde2d.f90
@ -189,7 +189,7 @@ contains
    n   = m
    nnz = ((n*7)/(np))
    if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
-
+    t0 = psb_wtime()
    select case(partition_)
    case(1)
      ! A BLOCK partition 
--- a/tests/pdegen/mld_s_pde3d.f90
+++ b/tests/pdegen/mld_s_pde3d.f90
@ -191,7 +191,7 @@ contains
    n   = m
    nnz = ((n*9)/(np))
    if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
-
+    t0 = psb_wtime()
    select case(partition_)
    case(1)
      ! A BLOCK partition