Commit 851fbda0 authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix error in elpa2_print_kernels

parent f92468a0
...@@ -135,15 +135,17 @@ program print_available_elpa2_kernels ...@@ -135,15 +135,17 @@ program print_available_elpa2_kernels
contains contains
subroutine print_options(e, option_name) subroutine print_options(e, KERNEL_KEY)
class(elpa_t), intent(inout) :: e class(elpa_t), intent(inout) :: e
character(len=*), intent(in) :: option_name character(len=*), intent(in) :: KERNEL_KEY
integer :: i, option integer :: i, kernel,error
do i = 0, elpa_option_cardinality(option_name) - 1 call e%set("solver",ELPA_SOLVER_2STAGE,error)
option = elpa_option_enumerate(option_name, i)
if (e%can_set(option_name, option) == ELPA_OK) then do i = 0, elpa_option_cardinality(KERNEL_KEY)
print *, " ", elpa_int_value_to_string(option_name, option) kernel = elpa_option_enumerate(KERNEL_KEY, i)
if (e%can_set(KERNEL_KEY, kernel) == ELPA_OK) then
print *, " ", elpa_int_value_to_string(KERNEL_KEY, kernel)
endif endif
end do end do
end subroutine end subroutine
......
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