Commit c14f2990 authored by Pavel Kus's avatar Pavel Kus Committed by Andreas Marek
Browse files

renaming variable

parent 1c88bdf2
......@@ -112,7 +112,7 @@ function elpa_solve_evp_&
mpi_comm_rows, mpi_comm_cols, &
mpi_comm_all, check_pd, i, error
logical :: do_bandred, do_solve, do_trans_ev
logical :: do_tridiag, do_solve, do_trans_ev
integer(kind=ik) :: nrThreads
call obj%timer%start("elpa_solve_evp_&
......@@ -308,11 +308,11 @@ function elpa_solve_evp_&
! start the computations
! as default do all three steps (this might change at some point)
do_bandred = .true.
do_tridiag = .true.
do_solve = .true.
do_trans_ev = .true.
if (do_bandred) then
if (do_tridiag) then
call obj%timer%start("forward")
call tridiag_&
......@@ -320,7 +320,7 @@ function elpa_solve_evp_&
& (obj, na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, ev, e, tau, do_useGPU_tridiag, wantDebug, nrThreads)
call obj%timer%stop("forward")
endif !do_bandred
endif !do_tridiag
if (do_solve) then
call obj%timer%start("solve")
Supports Markdown
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