ELPA: Fix AUTO kernel resolution

cp2k · Feb 16, 2021 · d584df3 · d584df3
1 parent 0045df2
commit d584df3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/fm/cp_fm_elpa.F b/src/fm/cp_fm_elpa.F
@@ -198,7 +198,7 @@ SUBROUTINE set_elpa_kernel(requested_kernel)
       elpa_kernel = requested_kernel
 
       ! Resolve AUTO kernel.
-      IF (requested_kernel == ELPA_2STAGE_REAL_INVALID) THEN
+      IF (elpa_kernel == ELPA_2STAGE_REAL_INVALID) THEN
          cpuid = m_cpuid()
          IF ((MACHINE_CPU_GENERIC .LT. cpuid) .AND. (cpuid .LE. MACHINE_X86)) THEN
             SELECT CASE (cpuid)
@@ -222,7 +222,7 @@ SUBROUTINE set_elpa_kernel(requested_kernel)
          CALL elpa_deallocate(elpa_obj)
 
          ! If we could not find a suitable kernel then use ELPA_2STAGE_REAL_DEFAULT.
-         IF (requested_kernel == ELPA_2STAGE_REAL_INVALID) THEN
+         IF (elpa_kernel == ELPA_2STAGE_REAL_INVALID) THEN
             elpa_kernel = ELPA_2STAGE_REAL_DEFAULT
          ENDIF
       END IF