Commit 2b98abd7 authored by Andreas Marek's avatar Andreas Marek

Fix printing of GPU kernels

parent 79066ffb
...@@ -140,8 +140,8 @@ program print_available_elpa2_kernels ...@@ -140,8 +140,8 @@ program print_available_elpa2_kernels
kernel = elpa_option_enumerate(KERNEL_KEY, i) kernel = elpa_option_enumerate(KERNEL_KEY, i)
if (elpa_int_value_to_string(KERNEL_KEY, i) .eq. "ELPA_2STAGE_COMPLEX_GPU" .or. & 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 elpa_int_value_to_string(KERNEL_KEY, i) .eq. "ELPA_2STAGE_REAL_GPU") then
if (e%can_set("use_gpu",1) == ELPA_OK) then if (e%can_set("gpu",1) == ELPA_OK) then
call e%set("use_gpu",1, error) call e%set("gpu",1, error)
endif endif
endif endif
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