Commit 0811dfc5 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

Another real<->complex swap

parent ad089190
......@@ -284,7 +284,7 @@ subroutine print_available_complex_kernels
enddo
write(error_unit,*) " "
write(error_unit,*) " At the moment the following kernel would be choosen:"
write(error_unit,*) get_actual_real_kernel_name()
write(error_unit,*) get_actual_complex_kernel_name()
end subroutine print_available_complex_kernels
......
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