Commit fa9d0a8b authored by Andreas Marek's avatar Andreas Marek

Remove calls to old timer object

parent 9b6e2a60
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
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