changing return code

and removing one extra check

changing return code
and removing one extra check
73d926be · Pavel Kus · Andreas Marek · 5a78064d · 73d926be
Commit 73d926be authored Nov 22, 2018 by Pavel Kus Committed by Andreas Marek Nov 28, 2018
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 2 deletions

src/elpa_impl.F90 src/elpa_impl.F90 +1 -2

No files found.
--- a/src/elpa_impl.F90
+++ b/src/elpa_impl.F90
@@ -497,7 +497,7 @@ module elpa_impl
        stop
      endif
      call self%get("blacs_context", blacs_ctx, error)
-      if(check_elpa_get(error, ELPA_ERROR)) return
+      if(check_elpa_get(error, ELPA_ERROR_CRITICAL)) return

      sc_desc(1) = 1
      sc_desc(2) = blacs_ctx
@@ -613,7 +613,6 @@ module elpa_impl
      nullify(string)

      call self%get(option_name, val, actual_error)
-      if(check_elpa_get(error, ELPA_ERROR)) return
      if (actual_error /= ELPA_OK) then
        if (present(error)) then
          error = actual_error