Set COMPLEX_GPU_KERNEL in complex case

b286352c · Andreas Marek · e530fe3b · b286352c
Commit b286352c authored Apr 20, 2017 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/elpa_t.F90 src/elpa_t.F90 +2 -2

No files found.
--- a/src/elpa_t.F90
+++ b/src/elpa_t.F90
@@ -683,7 +683,7 @@ module elpa_type
        useGPU = .false.
      endif

-      THIS_ELPA_KERNEL_API = self%get("real_kernel",success_internal)
+      THIS_ELPA_KERNEL_API = self%get("complex_kernel",success_internal)
      if (success_internal .ne. ELPA_OK) then
        print *,"Could not querry kernel"
        stop
@@ -791,7 +791,7 @@ module elpa_type
        useGPU = .false.
      endif

-      THIS_ELPA_KERNEL_API = self%get("real_kernel",success_internal)
+      THIS_ELPA_KERNEL_API = self%get("complex_kernel",success_internal)
      if (success_internal .ne. ELPA_OK) then
        print *,"Could not querry kernel"
        stop