Commit 1903534c authored by Andreas Marek's avatar Andreas Marek

Fix error when disabling Fortran 2008

parent c43385bc
......@@ -50,15 +50,15 @@
call self%get("solver", solver,error2)
if (error2 .ne. ELPA_OK) then
print *,"Problem setting option. Aborting..."
stop
endif
#ifdef USE_FORTRAN2008
if (present(error)) then
error = error2
endif
if (present(error)) then
error = error2
endif
#else
error = error2
error = error2
#endif
return
endif
if (solver .eq. ELPA_SOLVER_1STAGE) then
call self%autotune_timer%start("accumulator")
#if defined(INCLUDE_ROUTINES)
......@@ -205,15 +205,16 @@
call self%get("solver", solver,error2)
if (error2 .ne. ELPA_OK) then
print *,"Problem getting option. Aborting..."
stop
endif
#ifdef USE_FORTRAN2008
if (present(error)) then
error = error2
endif
if (present(error)) then
error = error2
endif
#else
error = error2
error = error2
#endif
return
endif
if (solver .eq. ELPA_SOLVER_1STAGE) then
call self%autotune_timer%start("accumulator")
#if defined(INCLUDE_ROUTINES)
......
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