Unify elpa2 bandred real/complex

eb01a207 · Andreas Marek · 30cdd6e5 · eb01a207 · 30cdd6e5 · eb01a207
Commit eb01a207 authored Dec 08, 2016 by Andreas Marek
--- a/Makefile.am
+++ b/Makefile.am
@@ -52,12 +52,11 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
        src/elpa1_compute_template.X90 \
        src/elpa2_compute_real_template.X90 \
        src/elpa2_compute_complex_template.X90 \
-	src/elpa2_bandred_real_template.X90 \
+	src/elpa2_bandred_template.X90 \
 	src/elpa2_symm_matrix_allreduce_real_template.X90 \
 	src/elpa2_trans_ev_band_to_full_real_template.X90 \
 	src/elpa2_tridiag_band_real_template.X90 \
 	src/elpa2_trans_ev_tridi_to_band_real_template.X90 \
-	src/elpa2_bandred_complex_template.X90 \
 	src/elpa2_herm_matrix_allreduce_complex_template.X90 \
 	src/elpa2_trans_ev_band_to_full_complex_template.X90 \
 	src/elpa2_tridiag_band_complex_template.X90 \
@@ -902,8 +901,6 @@ EXTRA_DIST = \
  src/elpa1_tridiag_template.X90 \
  src/elpa2_compute_real_template.X90 \
  src/elpa2_compute_complex_template.X90 \
-  src/elpa2_bandred_complex_template.X90 \
-  src/elpa2_bandred_real_template.X90 \
  src/elpa2_herm_matrix_allreduce_complex_template.X90 \
  src/elpa2_symm_matrix_allreduce_real_template.X90 \
  src/elpa2_trans_ev_band_to_full_complex_template.X90 \

--- a/src/elpa2_bandred_complex_template.X90
+++ b/src/elpa2_bandred_complex_template.X90
--- a/src/elpa2_bandred_real_template.X90
+++ b/src/elpa2_bandred_real_template.X90
--- a/src/elpa2_compute_complex_template.X90
+++ b/src/elpa2_compute_complex_template.X90
@@ -61,7 +61,10 @@
 ! distributed along with the original code in the file "COPYING".
 #endif

-#include "elpa2_bandred_complex_template.X90"
+#define COMPLEXCASE 1
+#undef REALCASE
+#include "elpa2_bandred_template.X90"
+#undef COMPLEXCASE
 #include "elpa2_herm_matrix_allreduce_complex_template.X90"
 #include "elpa2_trans_ev_band_to_full_complex_template.X90"
 #include "elpa2_tridiag_band_complex_template.X90"

--- a/src/elpa2_compute_real_template.X90
+++ b/src/elpa2_compute_real_template.X90
@@ -61,8 +61,10 @@
 ! distributed along with the original code in the file "COPYING".
 #endif

-
-#include "elpa2_bandred_real_template.X90"
+#define REALCASE 1
+#undef COMPLEXCASE
+#include "elpa2_bandred_template.X90"
+#undef REALCASE
 #include "elpa2_symm_matrix_allreduce_real_template.X90"
 #include "elpa2_trans_ev_band_to_full_real_template.X90"
 #include "elpa2_tridiag_band_real_template.X90"