Commit fa9d0a8b authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove calls to old timer object

parent 9b6e2a60
...@@ -44,11 +44,6 @@ ...@@ -44,11 +44,6 @@
#include "../../general/sanity.X90" #include "../../general/sanity.X90"
use elpa use elpa
#ifdef HAVE_DETAILED_TIMINGS
use timings
#else
use timings_dummy
#endif
use precision use precision
implicit none implicit none
...@@ -74,11 +69,11 @@ ...@@ -74,11 +69,11 @@
class(elpa_t), pointer :: e class(elpa_t), pointer :: e
call timer%start("elpa_cholesky_& !call timer%start("elpa_cholesky_&
&MATH_DATATYPE& !&MATH_DATATYPE&
&_& !&_&
&PRECISION& !&PRECISION&
&_legacy_interface") !&_legacy_interface")
success = .true. success = .true.
...@@ -121,11 +116,11 @@ ...@@ -121,11 +116,11 @@
call elpa_uninit() call elpa_uninit()
call timer%stop("elpa_cholesky_& !call timer%stop("elpa_cholesky_&
&MATH_DATATYPE& !&MATH_DATATYPE&
&_& !&_&
&PRECISION& !&PRECISION&
&_legacy_interface") !&_legacy_interface")
#undef REALCASE #undef REALCASE
#undef COMPLEXCASE #undef COMPLEXCASE
......
...@@ -57,11 +57,6 @@ ...@@ -57,11 +57,6 @@
! use elpa1_compute ! use elpa1_compute
! use elpa_utilities ! use elpa_utilities
use elpa_mpi use elpa_mpi
#ifdef HAVE_DETAILED_TIMINGS
use timings
#else
use timings_dummy
#endif
implicit none implicit none
integer(kind=ik) :: na, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols integer(kind=ik) :: na, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols
...@@ -96,11 +91,11 @@ ...@@ -96,11 +91,11 @@
integer(kind=iK) :: successInternal integer(kind=iK) :: successInternal
class(elpa_t), pointer :: e class(elpa_t), pointer :: e
call timer%start("elpa_invert_trm_& !call timer%start("elpa_invert_trm_&
&MATH_DATATYPE& !&MATH_DATATYPE&
&_& !&_&
&PRECISION& !&PRECISION&
&_legacy_interface") !&_legacy_interface")
success = .true. success = .true.
...@@ -143,11 +138,11 @@ ...@@ -143,11 +138,11 @@
call elpa_uninit() call elpa_uninit()
call timer%stop("elpa_invert_trm_& !call timer%stop("elpa_invert_trm_&
&MATH_DATATYPE& !&MATH_DATATYPE&
&_& !&_&
&PRECISION& !&PRECISION&
&_legacy_interface") !&_legacy_interface")
#undef REALCASE #undef REALCASE
#undef COMPLEXCASE #undef COMPLEXCASE
......
...@@ -55,11 +55,6 @@ ...@@ -55,11 +55,6 @@
#include "../../general/sanity.X90" #include "../../general/sanity.X90"
use elpa use elpa
#ifdef HAVE_DETAILED_TIMINGS
use timings
#else
use timings_dummy
#endif
! use elpa1_compute ! use elpa1_compute
use elpa_mpi use elpa_mpi
use precision use precision
...@@ -103,11 +98,11 @@ ...@@ -103,11 +98,11 @@
integer(kind=ik) :: successInternal integer(kind=ik) :: successInternal
class(elpa_t), pointer :: e class(elpa_t), pointer :: e
call timer%start("elpa_mult_at_b_& !call timer%start("elpa_mult_at_b_&
&MATH_DATATYPE& !&MATH_DATATYPE&
&_& !&_&
&PRECISION& !&PRECISION&
&_legacy_interface") !&_legacy_interface")
success = .true. success = .true.
...@@ -153,11 +148,11 @@ ...@@ -153,11 +148,11 @@
call elpa_uninit() call elpa_uninit()
call timer%stop("elpa_mult_at_b_& !call timer%stop("elpa_mult_at_b_&
&MATH_DATATYPE& !&MATH_DATATYPE&
&_& !&_&
&PRECISION& !&PRECISION&
&_legacy_interface") !&_legacy_interface")
#undef REALCASE #undef REALCASE
#undef COMPLEXCASE #undef COMPLEXCASE
......
...@@ -58,11 +58,6 @@ ...@@ -58,11 +58,6 @@
use precision use precision
use elpa use elpa
#ifdef HAVE_DETAILED_TIMINGS
use timings
#else
use timings_dummy
#endif
implicit none implicit none
integer(kind=ik) :: na, nev, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols integer(kind=ik) :: na, nev, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols
real(kind=REAL_DATATYPE) :: d(na), e(na) real(kind=REAL_DATATYPE) :: d(na), e(na)
...@@ -77,9 +72,9 @@ ...@@ -77,9 +72,9 @@
integer(kind=iK) :: successInternal integer(kind=iK) :: successInternal
class(elpa_t), pointer :: obj class(elpa_t), pointer :: obj
call timer%start("elpa_solve_tridi_& !call timer%start("elpa_solve_tridi_&
&PRECISION& !&PRECISION&
&_legacy_interface") !&_legacy_interface")
success = .false. success = .false.
...@@ -122,9 +117,9 @@ ...@@ -122,9 +117,9 @@
call elpa_uninit() call elpa_uninit()
call timer%stop("elpa_solve_tridi_& !call timer%stop("elpa_solve_tridi_&
&PRECISION& !&PRECISION&
&_legacy_interface") !&_legacy_interface")
#undef REALCASE #undef REALCASE
#undef COMPLEXCASE #undef COMPLEXCASE
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment