Commit d8584aef authored by Andreas Marek's avatar Andreas Marek

Add some missing timer calls

parent e06489b5
......@@ -96,6 +96,12 @@
integer(kind=ik) :: istat
character(200) :: errorMessage
call timer%start("elpa_invert_trm_&
&MATH_DATATYPE&
&_&
&PRECISION&
&")
na = obj%na
lda = obj%local_nrows
nblk = obj%nblk
......@@ -193,6 +199,11 @@
#endif
success = .false.
call timer%stop("elpa_invert_trm_&
&MATH_DATATYPE&
&_&
&PRECISION&
&")
return
endif
......@@ -303,6 +314,11 @@
stop 1
endif
call timer%stop("elpa_invert_trm_&
&MATH_DATATYPE&
&_&
&PRECISION&
&")
#undef REALCASE
#undef COMPLEXCASE
#undef DOUBLE_PRECISION
......
......@@ -77,7 +77,11 @@
logical :: wantDebug
logical :: success
call timer%start("elpa_solve_tridi_public_&
&MATH_DATATYPE&
&_&
&PRECISION&
&")
na = obj%na
nev = obj%nev
nblk = obj%nblk
......@@ -99,6 +103,13 @@
&_private_impl(na, nev, d, e, q, ldq, nblk, matrixCols, &
mpi_comm_rows, mpi_comm_cols, wantDebug, success)
call timer%stop("elpa_solve_tridi_public_&
&MATH_DATATYPE&
&_&
&PRECISION&
&")
#undef REALCASE
#undef COMPLEXCASE
#undef DOUBLE_PRECISION
......
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