From 39467e874dee0212cb8784422682b15624ec5948 Mon Sep 17 00:00:00 2001 From: Andreas Marek Date: Tue, 20 Nov 2018 14:17:56 +0100 Subject: [PATCH] Change error code in ELPA_ALLOCATE --- src/elpa_impl.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/elpa_impl.F90 b/src/elpa_impl.F90 index 74499610..246c820e 100644 --- a/src/elpa_impl.F90 +++ b/src/elpa_impl.F90 @@ -188,7 +188,7 @@ module elpa_impl if ( elpa_initialized() .ne. ELPA_OK) then write(error_unit, *) "elpa_allocate(): you must call elpa_init() once before creating instances of ELPA" if(present(error)) then - error = ELPA_ERROR_SETUP + error = ELPA_ERROR_API_VERSION endif return endif -- 2.22.0