Another real<->complex swap

0811dfc5 · Lorenz Huedepohl · ad089190 · 0811dfc5
Commit 0811dfc5 authored Jun 10, 2014 by Lorenz Huedepohl
--- a/ELPA_2014.06/src/elpa2.F90
+++ b/ELPA_2014.06/src/elpa2.F90
@@ -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