Fix that two complex kernels can be called at the same time

src/elpa2_compute_complex_template.X90

@@ -1703,7 +1703,7 @@
 !   real*8                   :: r_a(1,1), r_ab(1,1)
 
 #ifdef HAVE_DETAILED_TIMINGS
-#ifdef DOUBLE_PRECSISION_COMPLEX
+#ifdef DOUBLE_PRECISION_COMPLEX
       call timer%start("tridiag_band_complex_double")
 #else
       call timer%start("tridiag_band_complex_single")

src/elpa2_utilities.F90

@@ -286,19 +286,21 @@ module ELPA2_utilities
 #if defined(WITH_COMPLEX_SSE_BLOCK1_KERNEL) || defined(WITH_COMPLEX_SSE_BLOCK2_KERNEL)
 #ifdef WITH_COMPLEX_SSE_BLOCK2_KERNEL
   integer(kind=ik), parameter :: DEFAULT_COMPLEX_ELPA_KERNEL = COMPLEX_ELPA_KERNEL_SSE_BLOCK2
-#endif
+#else
 #ifdef WITH_COMPLEX_SSE_BLOCK1_KERNEL
   integer(kind=ik), parameter :: DEFAULT_COMPLEX_ELPA_KERNEL = COMPLEX_ELPA_KERNEL_SSE_BLOCK1
 #endif
+#endif
 #endif /* defined(WITH_COMPLEXL_SSE_BLOCK1_KERNEL) || defined(WITH_COMPLEX_SSE_BLOCK2_KERNEL) */
 
 #if defined(WITH_COMPLEX_AVX_BLOCK1_KERNEL) || defined(WITH_COMPLEX_AVX_BLOCK2_KERNEL)
 #ifdef WITH_COMPLEX_AVX_BLOCK2_KERNEL
   integer(kind=ik), parameter :: DEFAULT_COMPLEX_ELPA_KERNEL = COMPLEX_ELPA_KERNEL_AVX_BLOCK2
-#endif
+#else
 #ifdef WITH_COMPLEX_AVX_BLOCK1_KERNEL
   integer(kind=ik), parameter :: DEFAULT_COMPLEX_ELPA_KERNEL = COMPLEX_ELPA_KERNEL_AVX_BLOCK1
 #endif
+#endif
 #endif /* defined(WITH_COMPLEX_AVX_BLOCK1_KERNEL) || defined(WITH_COMPLEX_AVX_BLOCK2_KERNEL) */
 
 #ifdef WITH_GPU_VERSION
@@ -328,19 +330,21 @@ module ELPA2_utilities
 #if defined(WITH_COMPLEX_SSE_BLOCK1_KERNEL) || defined(WITH_COMPLEX_SSE_BLOCK2_KERNEL)
 #ifdef WITH_COMPLEX_SSE_BLOCK2_KERNEL
   integer(kind=ik), parameter :: DEFAULT_COMPLEX_ELPA_KERNEL = COMPLEX_ELPA_KERNEL_SSE_BLOCK2
-#endif
+#else
 #ifdef WITH_COMPLEX_SSE_BLOCK1_KERNEL
   integer(kind=ik), parameter :: DEFAULT_COMPLEX_ELPA_KERNEL = COMPLEX_ELPA_KERNEL_SSE_BLOCK1
 #endif
+#endif
 #endif /* defined(WITH_COMPLEXL_SSE_BLOCK1_KERNEL) || defined(WITH_COMPLEX_SSE_BLOCK2_KERNEL) */
 
 #if defined(WITH_COMPLEX_AVX_BLOCK1_KERNEL) || defined(WITH_COMPLEX_AVX_BLOCK2_KERNEL)
 #ifdef WITH_COMPLEX_AVX_BLOCK2_KERNEL
   integer(kind=ik), parameter :: DEFAULT_COMPLEX_ELPA_KERNEL = COMPLEX_ELPA_KERNEL_AVX_BLOCK2
-#endif
+#else
 #ifdef WITH_COMPLEX_AVX_BLOCK1_KERNEL
   integer(kind=ik), parameter :: DEFAULT_COMPLEX_ELPA_KERNEL = COMPLEX_ELPA_KERNEL_AVX_BLOCK1
 #endif
+#endif
 #endif /* defined(WITH_COMPLEX_AVX_BLOCK1_KERNEL) || defined(WITH_COMPLEX_AVX_BLOCK2_KERNEL) */
 
 #ifdef WITH_GPU_VERSION