Commit 8d05d19c authored by Andreas Marek's avatar Andreas Marek
Browse files

elpa1_template: remove some unused variables

parent 5a2a332c
......@@ -70,7 +70,7 @@ function elpa_solve_evp_&
mpi_comm_cols, mpi_comm_all
real(kind=REAL_DATATYPE), intent(out) :: ev(na)
integer(kind=c_int) :: my_pe, n_pes, my_prow, my_pcol, mpierr
integer(kind=c_int) :: my_prow, my_pcol, mpierr
#if REALCASE == 1
#ifdef USE_ASSUMED_SIZE
......
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