Work on issue #47

07f57c4e · Andreas Marek · 0e3e4d06 · 07f57c4e
Commit 07f57c4e authored Aug 31, 2017 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 10 deletions

src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 +0 -10

No files found.
--- a/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90
+++ b/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90
@@ -834,17 +834,7 @@
               if (wantDebug) call obj%timer%stop("mpi_communication")
 #else /* WITH_MPI */

-#if REALCASE == 1
               row_group(1:l_nev,row_group_size) = row(1:l_nev) ! is this correct ?
-#endif
-#if COMPLEXCASE == 1
-! todo: what of this is correct? Was different for double/single precision
-#ifdef DOUBLE_PRECISION_COMPLEX
-                row_group(1:l_nev,row_group_size) = row(1:l_nev) ! is this correct ?
-#else
-                row_group(1:l_nev,row_group_size) = row_group(1:l_nev,row_group_size) ! is this correct
-#endif
-#endif
 #endif /* WITH_MPI */

              else ! useGPU