Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
51f01bab
Commit
51f01bab
authored
Aug 13, 2018
by
Pavel Kus
Browse files
renaming members of elpa_autotune_impl_t
parent
0dc40c32
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/elpa_autotune_impl.F90
View file @
51f01bab
...
@@ -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
...
...
src/elpa_impl.F90
View file @
51f01bab
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment