Commit 39467e87 authored by Andreas Marek's avatar Andreas Marek

Change error code in ELPA_ALLOCATE

parent 09a6a4c9
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment