Remove calls to old timer object

src/elpa1/legacy_interface/elpa_cholesky_template.X90

@@ -44,11 +44,6 @@
 
 #include "../../general/sanity.X90"
       use elpa
-#ifdef HAVE_DETAILED_TIMINGS
-      use timings
-#else
-      use timings_dummy
-#endif
       use precision
       implicit none
 
@@ -74,11 +69,11 @@
 
       class(elpa_t), pointer           :: e
 
-      call timer%start("elpa_cholesky_&
-      &MATH_DATATYPE&
-      &_&
-      &PRECISION&
-      &_legacy_interface")
+      !call timer%start("elpa_cholesky_&
+      !&MATH_DATATYPE&
+      !&_&
+      !&PRECISION&
+      !&_legacy_interface")
 
       success = .true.
 
@@ -121,11 +116,11 @@
 
       call elpa_uninit()
 
-      call timer%stop("elpa_cholesky_&
-      &MATH_DATATYPE&
-      &_&
-      &PRECISION&
-      &_legacy_interface")
+      !call timer%stop("elpa_cholesky_&
+      !&MATH_DATATYPE&
+      !&_&
+      !&PRECISION&
+      !&_legacy_interface")
 
 #undef REALCASE
 #undef COMPLEXCASE

src/elpa1/legacy_interface/elpa_invert_trm.X90

@@ -57,11 +57,6 @@
 !       use elpa1_compute
 !       use elpa_utilities
        use elpa_mpi
-#ifdef HAVE_DETAILED_TIMINGS
-       use timings
-#else
-       use timings_dummy
-#endif
        implicit none
 
        integer(kind=ik)                 :: na, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols
@@ -96,11 +91,11 @@
        integer(kind=iK)            :: successInternal
        class(elpa_t), pointer      :: e
 
-       call timer%start("elpa_invert_trm_&
-       &MATH_DATATYPE&
-       &_&
-       &PRECISION&
-       &_legacy_interface")
+       !call timer%start("elpa_invert_trm_&
+       !&MATH_DATATYPE&
+       !&_&
+       !&PRECISION&
+       !&_legacy_interface")
 
        success = .true.
 
@@ -143,11 +138,11 @@
 
        call elpa_uninit()
 
-       call timer%stop("elpa_invert_trm_&
-       &MATH_DATATYPE&
-       &_&
-       &PRECISION&
-       &_legacy_interface")
+       !call timer%stop("elpa_invert_trm_&
+       !&MATH_DATATYPE&
+       !&_&
+       !&PRECISION&
+       !&_legacy_interface")
 
 #undef REALCASE
 #undef COMPLEXCASE

src/elpa1/legacy_interface/elpa_multiply_a_b.X90

@@ -55,11 +55,6 @@
 
 #include "../../general/sanity.X90"
       use elpa
-#ifdef HAVE_DETAILED_TIMINGS
-      use timings
-#else
-      use timings_dummy
-#endif
 !      use elpa1_compute
       use elpa_mpi
       use precision
@@ -103,11 +98,11 @@
       integer(kind=ik)                            :: successInternal
       class(elpa_t), pointer                      :: e
 
-      call timer%start("elpa_mult_at_b_&
-      &MATH_DATATYPE&
-      &_&
-      &PRECISION&
-      &_legacy_interface")
+      !call timer%start("elpa_mult_at_b_&
+      !&MATH_DATATYPE&
+      !&_&
+      !&PRECISION&
+      !&_legacy_interface")
 
       success = .true.
 
@@ -153,11 +148,11 @@
 
       call elpa_uninit()
 
-      call timer%stop("elpa_mult_at_b_&
-      &MATH_DATATYPE&
-      &_&
-      &PRECISION&
-      &_legacy_interface")
+      !call timer%stop("elpa_mult_at_b_&
+      !&MATH_DATATYPE&
+      !&_&
+      !&PRECISION&
+      !&_legacy_interface")
 
 #undef REALCASE
 #undef COMPLEXCASE

src/elpa1/legacy_interface/elpa_solve_tridi.X90

@@ -58,11 +58,6 @@
 
       use precision
       use elpa
-#ifdef HAVE_DETAILED_TIMINGS
-      use timings
-#else
-       use timings_dummy
-#endif
       implicit none
       integer(kind=ik)            :: na, nev, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols
       real(kind=REAL_DATATYPE)    :: d(na), e(na)
@@ -77,9 +72,9 @@
       integer(kind=iK)            :: successInternal
       class(elpa_t), pointer      :: obj
 
-      call timer%start("elpa_solve_tridi_&
-      &PRECISION&
-      &_legacy_interface")
+      !call timer%start("elpa_solve_tridi_&
+      !&PRECISION&
+      !&_legacy_interface")
 
       success = .false.
 
@@ -122,9 +117,9 @@
 
       call elpa_uninit()
 
-     call timer%stop("elpa_solve_tridi_&
-     &PRECISION&
-     &_legacy_interface")
+     !call timer%stop("elpa_solve_tridi_&
+     !&PRECISION&
+     !&_legacy_interface")
 
 #undef REALCASE
 #undef COMPLEXCASE