Commit f3a1d0f2 authored by Andreas Marek's avatar Andreas Marek
Browse files

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
parent b403d93b
......@@ -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)
if (e%can_set(KERNEL_KEY, kernel) == ELPA_OK) then
print *, " ", elpa_int_value_to_string(KERNEL_KEY, kernel)
Supports Markdown
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