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

Cholesky legacy interface: pass wantDebug

parent 0e19ce21
...@@ -52,12 +52,12 @@ ...@@ -52,12 +52,12 @@
use precision use precision
implicit none implicit none
integer(kind=ik) :: na, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols integer(kind=ik) :: na, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols
#if REALCASE == 1 #if REALCASE == 1
#ifdef USE_ASSUMED_SIZE #ifdef USE_ASSUMED_SIZE
real(kind=REAL_DATATYPE) :: a(lda,*) real(kind=REAL_DATATYPE) :: a(lda,*)
#else #else
real(kind=REAL_DATATYPE) :: a(lda,matrixCols) real(kind=REAL_DATATYPE) :: a(lda,matrixCols)
#endif #endif
#endif #endif
#if COMPLEXCASE == 1 #if COMPLEXCASE == 1
...@@ -67,12 +67,12 @@ ...@@ -67,12 +67,12 @@
complex(kind=COMPLEX_DATATYPE) :: a(lda,matrixCols) complex(kind=COMPLEX_DATATYPE) :: a(lda,matrixCols)
#endif #endif
#endif #endif
integer(kind=ik) :: nev integer(kind=ik) :: nev
logical, intent(in) :: wantDebug logical, intent(in) :: wantDebug
logical :: success logical :: success
integer(kind=ik) :: successInternal integer(kind=ik) :: successInternal, debug
class(elpa_t), pointer :: e class(elpa_t), pointer :: e
call timer%start("elpa_cholesky_& call timer%start("elpa_cholesky_&
&MATH_DATATYPE& &MATH_DATATYPE&
...@@ -105,6 +105,9 @@ ...@@ -105,6 +105,9 @@
return return
endif endif
if (wantDebug) then
call e%set("debug",1)
endif
call e%cholesky(a(1:lda,1:matrixCols), successInternal) call e%cholesky(a(1:lda,1:matrixCols), successInternal)
if (successInternal .ne. ELPA_OK) then 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