Commit 5a2a332c authored by Andreas Marek's avatar Andreas Marek
Browse files

Cholesky legacy interface: pass wantDebug

parent 0e19ce21
......@@ -70,7 +70,7 @@
integer(kind=ik) :: nev
logical, intent(in) :: wantDebug
logical :: success
integer(kind=ik) :: successInternal
integer(kind=ik) :: successInternal, debug
class(elpa_t), pointer :: e
......@@ -105,6 +105,9 @@
return
endif
if (wantDebug) then
call e%set("debug",1)
endif
call e%cholesky(a(1:lda,1:matrixCols), successInternal)
if (successInternal .ne. ELPA_OK) then
......
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