Commit c6c76912 by Andreas Marek

### Add timing information for real generic simple kernel

parent 318d430c
 ... @@ -65,6 +65,9 @@ module real_generic_simple_kernel ... @@ -65,6 +65,9 @@ module real_generic_simple_kernel contains contains subroutine double_hh_trafo_generic_simple(q, hh, nb, nq, ldq, ldh) subroutine double_hh_trafo_generic_simple(q, hh, nb, nq, ldq, ldh) use precision use precision #ifdef HAVE_DETAILED_TIMINGS use timings #endif implicit none implicit none integer(kind=ik), intent(in) :: nb, nq, ldq, ldh integer(kind=ik), intent(in) :: nb, nq, ldq, ldh ... @@ -74,6 +77,9 @@ contains ... @@ -74,6 +77,9 @@ contains real(kind=rk) :: s, h1, h2, tau1, tau2, x(nq), y(nq) real(kind=rk) :: s, h1, h2, tau1, tau2, x(nq), y(nq) integer(kind=ik) :: i 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 ! Calculate dot product of the two Householder vectors s = hh(2,2)*1 s = hh(2,2)*1 ... @@ -116,6 +122,10 @@ contains ... @@ -116,6 +122,10 @@ contains q(1:nq,nb+1) = q(1:nq,nb+1) + x(1:nq)*hh(nb,1) 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 subroutine double_hh_trafo_generic_simple end module real_generic_simple_kernel end module real_generic_simple_kernel ! -------------------------------------------------------------------------------------------------- ! --------------------------------------------------------------------------------------------------
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