Commit dbe258d9 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl

Move elpa2_utilities(_private) to legacy

parent aabc7776
......@@ -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 \
......
......@@ -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
......
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