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

renaming variable

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