From d0a18a9118ca8c9e7a5888e9747df397fa90a5c9 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 25 Jul 2006 12:59:39 +0000
Subject: [PATCH] Use psb_wtime in place of mpi_wtime.

---
 test/Fileread/mat_dist.f90 | 44 +++++++++++++++++---------------------
 1 file changed, 20 insertions(+), 24 deletions(-)

diff --git a/test/Fileread/mat_dist.f90 b/test/Fileread/mat_dist.f90
index 3975387c..3d9570b3 100644
--- a/test/Fileread/mat_dist.f90
+++ b/test/Fileread/mat_dist.f90
@@ -128,8 +128,7 @@ contains
     integer, allocatable          :: irow(:),icol(:)
     real(kind(1.d0)), allocatable :: val(:)
     integer, parameter          :: nb=30
-    real(kind(1.d0))            :: t0, t1, t2, t3, t4, t5, mpi_wtime
-    external                    :: mpi_wtime
+    real(kind(1.d0))            :: t0, t1, t2, t3, t4, t5
     logical, parameter          :: newt=.true.
     character(len=20)           :: name, ch_err
 
@@ -414,9 +413,9 @@ contains
     if (newt) then 
 
       call psb_barrier(ictxt)
-      t0 = mpi_wtime()
+      t0 = psb_wtime()
       call psb_cdasb(desc_a,info)     
-      t1 = mpi_wtime()
+      t1 = psb_wtime()
       if(info/=0)then
         info=4010
         ch_err='psb_cdasb'
@@ -425,9 +424,9 @@ contains
       end if
 
       call psb_barrier(ictxt)
-      t2 = mpi_wtime()
+      t2 = psb_wtime()
       call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)     
-      t3 = mpi_wtime()
+      t3 = psb_wtime()
       if(info/=0)then
         info=4010
         ch_err='psb_spasb'
@@ -565,8 +564,7 @@ contains
     real(kind(1.d0)), allocatable :: val(:)
     integer, parameter          :: nb=30
     logical, parameter          :: newt=.true.
-    real(kind(1.d0))            :: t0, t1, t2, t3, t4, t5, mpi_wtime
-    external                    :: mpi_wtime
+    real(kind(1.d0))            :: t0, t1, t2, t3, t4, t5
     character(len=20)  :: name, ch_err
 
     info = 0
@@ -762,9 +760,9 @@ contains
       afmt = 'CSR'
     endif
     call psb_barrier(ictxt)
-    t0 = mpi_wtime()
+    t0 = psb_wtime()
     call psb_cdasb(desc_a,info)     
-    t1 = mpi_wtime()
+    t1 = psb_wtime()
     if(info/=0)then
       info=4010
       ch_err='psb_cdasb'
@@ -773,9 +771,9 @@ contains
     end if
 
     call psb_barrier(ictxt)
-    t2 = mpi_wtime()
+    t2 = psb_wtime()
     call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)     
-    t3 = mpi_wtime()
+    t3 = psb_wtime()
     if(info/=0)then
       info=4010
       ch_err='psb_spasb'
@@ -905,8 +903,7 @@ contains
     integer, allocatable          :: irow(:),icol(:)
     complex(kind(1.d0)), allocatable :: val(:)
     integer, parameter          :: nb=30
-    real(kind(1.d0))            :: t0, t1, t2, t3, t4, t5, mpi_wtime
-    external                    :: mpi_wtime
+    real(kind(1.d0))            :: t0, t1, t2, t3, t4, t5
     logical, parameter          :: newt=.true.
     character(len=20)           :: name, ch_err
 
@@ -1188,9 +1185,9 @@ contains
     if (newt) then 
 
       call psb_barrier(ictxt)
-      t0 = mpi_wtime()
+      t0 = psb_wtime()
       call psb_cdasb(desc_a,info)     
-      t1 = mpi_wtime()
+      t1 = psb_wtime()
       if(info/=0)then
         info=4010
         ch_err='psb_cdasb'
@@ -1199,9 +1196,9 @@ contains
       end if
 
       call psb_barrier(ictxt)
-      t2 = mpi_wtime()
+      t2 = psb_wtime()
       call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)     
-      t3 = mpi_wtime()
+      t3 = psb_wtime()
       if(info/=0)then
         info=4010
         ch_err='psb_spasb'
@@ -1339,8 +1336,7 @@ contains
     complex(kind(1.d0)), allocatable :: val(:)
     integer, parameter          :: nb=30
     logical, parameter          :: newt=.true.
-    real(kind(1.d0))            :: t0, t1, t2, t3, t4, t5, mpi_wtime
-    external                    :: mpi_wtime
+    real(kind(1.d0))            :: t0, t1, t2, t3, t4, t5
     character(len=20)  :: name, ch_err
 
     info = 0
@@ -1535,9 +1531,9 @@ contains
       afmt = 'CSR'
     endif
     call psb_barrier(ictxt)
-    t0 = mpi_wtime()
+    t0 = psb_wtime()
     call psb_cdasb(desc_a,info)     
-    t1 = mpi_wtime()
+    t1 = psb_wtime()
     if(info/=0)then
       info=4010
       ch_err='psb_cdasb'
@@ -1546,9 +1542,9 @@ contains
     end if
 
     call psb_barrier(ictxt)
-    t2 = mpi_wtime()
+    t2 = psb_wtime()
     call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)     
-    t3 = mpi_wtime()
+    t3 = psb_wtime()
     if(info/=0)then
       info=4010
       ch_err='psb_spasb'