From 73d926be913f4b2d0c2f82bd58c83f389a0fce79 Mon Sep 17 00:00:00 2001 From: Pavel Kus Date: Thu, 22 Nov 2018 14:45:18 +0100 Subject: [PATCH] changing return code and removing one extra check --- src/elpa_impl.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/elpa_impl.F90 b/src/elpa_impl.F90 index effd76bd..f461135a 100644 --- 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 -- GitLab