From 2f1cd0892343d954bca2de440dd24e411067dc24 Mon Sep 17 00:00:00 2001 From: Andreas Marek Date: Thu, 31 Aug 2017 17:10:26 +0200 Subject: [PATCH] Work on issue #47 --- src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 b/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 index d8baa558..0401471b 100644 --- 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 -- GitLab