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

Add some missing timer calls

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