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
dbe258d9
Commit
dbe258d9
authored
Apr 24, 2017
by
Lorenz Huedepohl
Browse files
Move elpa2_utilities(_private) to legacy
parent
aabc7776
Changes
3
Hide whitespace changes
Inline
Side-by-side
Makefile.am
View file @
dbe258d9
...
...
@@ -16,7 +16,7 @@ libelpa@SUFFIX@_public_la_SOURCES = \
src/elpa_driver/legacy_interface/elpa_legacy.F90
\
src/elpa1/legacy_interface/elpa1_legacy.F90
\
src/elpa2/legacy_interface/elpa2_legacy.F90
\
src/elpa2/elpa2_utilities.F90
\
src/elpa2/
legacy_interface/
elpa2_utilities
_legacy
.F90
\
src/elpa1/legacy_interface/elpa1_auxiliary_legacy.F90
\
src/elpa1/elpa1_auxiliary.F90
\
src/elpa_t.F90
\
...
...
@@ -30,7 +30,7 @@ libelpa@SUFFIX@_private_la_SOURCES = \
src/helpers/mod_mpi.F90
\
src/helpers/mod_mpi_stubs.F90
\
src/elpa_generated_fortran_interfaces.F90
\
src/elpa2/elpa2_utilities_private.F90
\
src/elpa2/
legacy_interface/
elpa2_utilities_private
_legacy
.F90
\
src/elpa2/mod_redist_band.F90
\
src/elpa2/mod_pack_unpack_cpu.F90
\
src/elpa2/mod_compute_hh_trafo.F90
\
...
...
src/elpa2/elpa2_utilities.F90
→
src/elpa2/
legacy_interface/
elpa2_utilities
_legacy
.F90
View file @
dbe258d9
...
...
@@ -356,9 +356,11 @@ module elpa2_utilities
call
timer
%
start
(
"elpa_real_kernel_name"
)
if
(
AVAILABLE_REAL_ELPA_KERNELS
(
THIS_ELPA_REAL_KERNEL
)
.eq.
1
)
then
name
=
trim
(
REAL_ELPA_KERNEL_NAMES
(
THIS_ELPA_REAL_KERNEL
))
endif
if
(
AVAILABLE_REAL_ELPA_KERNELS
(
THIS_ELPA_REAL_KERNEL
)
.eq.
1
)
then
name
=
trim
(
REAL_ELPA_KERNEL_NAMES
(
THIS_ELPA_REAL_KERNEL
))
else
name
=
""
endif
call
timer
%
stop
(
"elpa_real_kernel_name"
)
return
...
...
@@ -377,9 +379,12 @@ module elpa2_utilities
call
timer
%
start
(
"elpa_complex_kernel_name"
)
if
(
AVAILABLE_COMPLEX_ELPA_KERNELS
(
THIS_ELPA_COMPLEX_KERNEL
)
.eq.
1
)
then
name
=
trim
(
COMPLEX_ELPA_KERNEL_NAMES
(
THIS_ELPA_COMPLEX_KERNEL
))
endif
if
(
AVAILABLE_COMPLEX_ELPA_KERNELS
(
THIS_ELPA_COMPLEX_KERNEL
)
.eq.
1
)
then
name
=
trim
(
COMPLEX_ELPA_KERNEL_NAMES
(
THIS_ELPA_COMPLEX_KERNEL
))
else
name
=
""
endif
call
timer
%
stop
(
"elpa_complex_kernel_name"
)
return
...
...
src/elpa2/elpa2_utilities_private.F90
→
src/elpa2/
legacy_interface/
elpa2_utilities_private
_legacy
.F90
View file @
dbe258d9
File moved
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