Add some missing timer calls

d8584aef · Andreas Marek · e06489b5 · d8584aef · d8584aef
Commit d8584aef authored May 19, 2017 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 28 additions and 1 deletion

src/elpa1/elpa_invert_trm.X90 src/elpa1/elpa_invert_trm.X90 +16 -0

src/elpa1/elpa_solve_tridi_impl_public.X90 src/elpa1/elpa_solve_tridi_impl_public.X90 +12 -1

No files found.
--- a/src/elpa1/elpa_invert_trm.X90
+++ b/src/elpa1/elpa_invert_trm.X90
@@ -96,6 +96,12 @@
       integer(kind=ik)             :: istat
       character(200)               :: errorMessage

+      call timer%start("elpa_invert_trm_&
+      &MATH_DATATYPE&
+      &_&
+      &PRECISION&
+      &")
+
       na         = obj%na
       lda        = obj%local_nrows
       nblk       = obj%nblk
@@ -193,6 +199,11 @@
 #endif

               success = .false.
+               call timer%stop("elpa_invert_trm_&
+               &MATH_DATATYPE&
+               &_&
+               &PRECISION&
+               &")
               return
             endif

@@ -303,6 +314,11 @@
         stop 1
       endif

+       call timer%stop("elpa_invert_trm_&
+       &MATH_DATATYPE&
+       &_&
+       &PRECISION&
+       &")
 #undef REALCASE
 #undef COMPLEXCASE
 #undef DOUBLE_PRECISION

--- a/src/elpa1/elpa_solve_tridi_impl_public.X90
+++ b/src/elpa1/elpa_solve_tridi_impl_public.X90
@@ -77,7 +77,11 @@
      logical                  :: wantDebug
      logical                  :: success

-
+      call timer%start("elpa_solve_tridi_public_&
+      &MATH_DATATYPE&
+      &_&
+      &PRECISION&
+      &")
      na         = obj%na
      nev        = obj%nev
      nblk       = obj%nblk
@@ -99,6 +103,13 @@
      &_private_impl(na, nev, d, e, q, ldq, nblk, matrixCols, &
               mpi_comm_rows, mpi_comm_cols, wantDebug, success)

+      call timer%stop("elpa_solve_tridi_public_&
+      &MATH_DATATYPE&
+      &_&
+      &PRECISION&
+      &")
+
+
 #undef REALCASE
 #undef COMPLEXCASE
 #undef DOUBLE_PRECISION