Commit b17975c0 authored by Wenzhe Yu's avatar Wenzhe Yu 😎 Committed by Andreas Marek
Browse files

Fix an uninitialized debug variable in ELPA2

parent 7097a246
......@@ -271,6 +271,13 @@
isSkewsymmetric = (skewsymmetric == 1)
call obj%get("debug",debug,error)
if (error .ne. ELPA_OK) then
print *,"Problem getting option. Aborting..."
stop
endif
wantDebug = debug == 1
! GPU settings
call obj%get("gpu", gpu,error)
if (error .ne. ELPA_OK) then
......@@ -523,14 +530,6 @@
#endif
call obj%get("debug",debug,error)
if (error .ne. ELPA_OK) then
print *,"Problem getting option. Aborting..."
stop
endif
wantDebug = debug == 1
#if REALCASE == 1
useQRActual = .false.
......
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