Commit 51f01bab authored by Pavel Kus's avatar Pavel Kus
Browse files

renaming members of elpa_autotune_impl_t

parent 0dc40c32
...@@ -7,10 +7,10 @@ module elpa_autotune_impl ...@@ -7,10 +7,10 @@ module elpa_autotune_impl
#ifdef ENABLE_AUTOTUNING #ifdef ENABLE_AUTOTUNING
type, extends(elpa_autotune_t) :: elpa_autotune_impl_t type, extends(elpa_autotune_t) :: elpa_autotune_impl_t
class(elpa_abstract_impl_t), pointer :: parent => NULL() class(elpa_abstract_impl_t), pointer :: parent => NULL()
integer :: i = 0 integer :: current = 0
real(kind=C_DOUBLE) :: min_val = 0.0_C_DOUBLE real(kind=C_DOUBLE) :: min_val = 0.0_C_DOUBLE
integer :: min_loc = 0 integer :: min_loc = 0
integer :: N = 0 integer :: cardinality = 0
integer :: level = 0 integer :: level = 0
integer :: domain = 0 integer :: domain = 0
contains contains
......
...@@ -903,9 +903,9 @@ module elpa_impl ...@@ -903,9 +903,9 @@ module elpa_impl
ts_impl%level = level ts_impl%level = level
ts_impl%domain = domain ts_impl%domain = domain
ts_impl%i = -1 ts_impl%current = -1
ts_impl%min_loc = -1 ts_impl%min_loc = -1
ts_impl%N = elpa_index_autotune_cardinality_c(self%index, level, domain) ts_impl%cardinality = elpa_index_autotune_cardinality_c(self%index, level, domain)
tune_state => ts_impl tune_state => ts_impl
...@@ -974,7 +974,7 @@ module elpa_impl ...@@ -974,7 +974,7 @@ module elpa_impl
unfinished = .false. unfinished = .false.
if (ts_impl%i >= 0) then if (ts_impl%current >= 0) then
#ifdef HAVE_DETAILED_TIMINGS #ifdef HAVE_DETAILED_TIMINGS
time_spent = self%autotune_timer%get("accumulator") time_spent = self%autotune_timer%get("accumulator")
#else #else
...@@ -982,14 +982,14 @@ module elpa_impl ...@@ -982,14 +982,14 @@ module elpa_impl
#endif #endif
if (ts_impl%min_loc == -1 .or. (time_spent < ts_impl%min_val)) then if (ts_impl%min_loc == -1 .or. (time_spent < ts_impl%min_val)) then
ts_impl%min_val = time_spent ts_impl%min_val = time_spent
ts_impl%min_loc = ts_impl%i ts_impl%min_loc = ts_impl%current
end if end if
call self%autotune_timer%free() call self%autotune_timer%free()
endif endif
do while (ts_impl%i < ts_impl%N - 1) do while (ts_impl%current < ts_impl%cardinality - 1)
ts_impl%i = ts_impl%i + 1 ts_impl%current = ts_impl%current + 1
if (elpa_index_set_autotune_parameters_c(self%index, ts_impl%level, ts_impl%domain, ts_impl%i) == 1) then if (elpa_index_set_autotune_parameters_c(self%index, ts_impl%level, ts_impl%domain, ts_impl%current) == 1) then
unfinished = .true. unfinished = .true.
return return
end if end if
......
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