From c6c769128170243ab4c6d22eb9d7a3817c0b4f2b Mon Sep 17 00:00:00 2001 From: Andreas Marek Date: Thu, 28 Jan 2016 09:40:17 +0100 Subject: [PATCH] Add timing information for real generic simple kernel --- src/elpa2_kernels/elpa2_kernels_real_simple.F90 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/elpa2_kernels/elpa2_kernels_real_simple.F90 b/src/elpa2_kernels/elpa2_kernels_real_simple.F90 index cb78461..bfe0457 100644 --- a/src/elpa2_kernels/elpa2_kernels_real_simple.F90 +++ b/src/elpa2_kernels/elpa2_kernels_real_simple.F90 @@ -65,6 +65,9 @@ module real_generic_simple_kernel contains subroutine double_hh_trafo_generic_simple(q, hh, nb, nq, ldq, ldh) use precision +#ifdef HAVE_DETAILED_TIMINGS + use timings +#endif implicit none integer(kind=ik), intent(in) :: nb, nq, ldq, ldh @@ -74,6 +77,9 @@ contains real(kind=rk) :: s, h1, h2, tau1, tau2, x(nq), y(nq) integer(kind=ik) :: i +#ifdef HAVE_DETAILED_TIMINGS + call timer%start("kernel generic simple: double_hh_trafo_generic_simple") +#endif ! Calculate dot product of the two Householder vectors s = hh(2,2)*1 @@ -116,6 +122,10 @@ contains q(1:nq,nb+1) = q(1:nq,nb+1) + x(1:nq)*hh(nb,1) +#ifdef HAVE_DETAILED_TIMINGS + call timer%stop("kernel generic simple: double_hh_trafo_generic_simple") +#endif + end subroutine double_hh_trafo_generic_simple end module real_generic_simple_kernel ! -------------------------------------------------------------------------------------------------- -- GitLab