From f3a1d0f2f87adb00a6e395128c55d0abec8db99d Mon Sep 17 00:00:00 2001 From: Andreas Marek Date: Fri, 4 Jan 2019 12:17:01 +0100 Subject: [PATCH] Fix problem in elpa2_print_kernels with GPU kernel The GPU kernel can only be set, if e%set("use_gpu",1) has been set before and GPU usage was thus requested. In the elpa2_print_kernels, this was not reflected, and the GPU kernels were checked via can_set method without activating GPU usage => GPU kernels were always reported as non exisitent --- src/elpa2/elpa2_print_kernels.F90 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/elpa2/elpa2_print_kernels.F90 b/src/elpa2/elpa2_print_kernels.F90 index 811bef5a..53011993 100644 --- a/src/elpa2/elpa2_print_kernels.F90 +++ b/src/elpa2/elpa2_print_kernels.F90 @@ -138,6 +138,13 @@ program print_available_elpa2_kernels do i = 0, elpa_option_cardinality(KERNEL_KEY) kernel = elpa_option_enumerate(KERNEL_KEY, i) + if (elpa_int_value_to_string(KERNEL_KEY, i) .eq. "ELPA_2STAGE_COMPLEX_GPU" .or. & + elpa_int_value_to_string(KERNEL_KEY, i) .eq. "ELPA_2STAGE_REAL_GPU") then + if (e%can_set("use_gpu",1) == ELPA_OK) then + call e%set("use_gpu",1) + endif + endif + if (e%can_set(KERNEL_KEY, kernel) == ELPA_OK) then print *, " ", elpa_int_value_to_string(KERNEL_KEY, kernel) endif -- GitLab