Template for chechk_correctness

Makefile.am

@@ -486,7 +486,8 @@ libelpatest@SUFFIX@_la_FCFLAGS = $(AM_FCFLAGS) @FC_MODOUT@private_modules @FC_MO
 libelpatest@SUFFIX@_la_SOURCES = \
 	test/shared/util.F90 \
 	test/shared/read_input_parameters.F90  \
-	test/shared/check_correctnes.F90 \
+	test/shared/check_correctness.F90 \
+	test/shared/check_correctness_template.X90 \
 	test/shared/setup_mpi.F90 \
 	test/shared/blacs_infrastructure.F90 \
 	test/shared/prepare_matrix.F90 \
@@ -930,8 +931,8 @@ test_real.i: $(top_srcdir)/test/Fortran/test_real1.F90
 blacs_infrastructure.i: $(top_srcdir)/test/shared_sources/blacs_infrastructure.F90
 	$(CPP) $(CPPFLAGS) -I$(top_builddir)/ -c $(top_srcdir)/test/shared_sources/blacs_infrastructure.F90 -o $@
 
-check_correctnes.i: $(top_srcdir)/test/shared_sources/check_correctnes.F90
-	$(CPP) $(CPPFLAGS) -I$(top_builddir)/ -c $(top_srcdir)/test/shared_sources/check_correctnes.F90 -o $@
+check_correctness.i: $(top_srcdir)/test/shared_sources/check_correctness.F90
+	$(CPP) $(CPPFLAGS) -I$(top_builddir)/ -c $(top_srcdir)/test/shared_sources/check_correctness.F90 -o $@
 
 prepare_matrix.i: $(top_srcdir)/test/shared_sources/prepare_matrix.F90
 	$(CPP) $(CPPFLAGS) -I$(top_builddir)/ -c $(top_srcdir)/test/shared_sources/prepare_matrix.F90 -o $@
@@ -1020,6 +1021,7 @@ EXTRA_DIST = \
   src/elpa2/GPU/ev_tridi_band_gpu_c_v2_real_template.Xcu \
   src/GPU/cuUtils_template.Xcu \
   test/shared/prepare_matrix_template.X90\
+  test/shared/check_correctness_template.X90 \
   nvcc_wrap \
   test_project/Makefile.am \
   test_project/autogen.sh \

test/shared/check_correctness.F90

+!    This file is part of ELPA.
+!
+!    The ELPA library was originally created by the ELPA consortium,
+!    consisting of the following organizations:
+!
+!    - Max Planck Computing and Data Facility (MPCDF), formerly known as
+!      Rechenzentrum Garching der Max-Planck-Gesellschaft (RZG),
+!    - Bergische Universität Wuppertal, Lehrstuhl für angewandte
+!      Informatik,
+!    - Technische Universität München, Lehrstuhl für Informatik mit
+!      Schwerpunkt Wissenschaftliches Rechnen ,
+!    - Fritz-Haber-Institut, Berlin, Abt. Theorie,
+!    - Max-Plack-Institut für Mathematik in den Naturwissenschaften,
+!      Leipzig, Abt. Komplexe Strukutren in Biologie und Kognition,
+!      and
+!    - IBM Deutschland GmbH
+!
+!
+!    More information can be found here:
+!    http://elpa.mpcdf.mpg.de/
+!
+!    ELPA is free software: you can redistribute it and/or modify
+!    it under the terms of the version 3 of the license of the
+!    GNU Lesser General Public License as published by the Free
+!    Software Foundation.
+!
+!    ELPA is distributed in the hope that it will be useful,
+!    but WITHOUT ANY WARRANTY; without even the implied warranty of
+!    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+!    GNU Lesser General Public License for more details.
+!
+!    You should have received a copy of the GNU Lesser General Public License
+!    along with ELPA.  If not, see <http://www.gnu.org/licenses/>
+!
+!    ELPA reflects a substantial effort on the part of the original
+!    ELPA consortium, and we ask you to respect the spirit of the
+!    license that we chose: i.e., please contribute any changes you
+!    may have back to the original ELPA library distribution, and keep
+!    any derivatives of ELPA under the same license that we chose for
+!    the original distribution, the GNU Lesser General Public License.
+!
+! Author: A. Marek, MPCDF
+#include "config-f90.h"
+
+module mod_check_correctness
+
+
+  interface check_correctness_double
+    module procedure check_correctness_complex_double
+    module procedure check_correctness_real_double
+  end interface
+
+  interface check_correctness
+    module procedure check_correctness_complex_double
+    module procedure check_correctness_real_double
+  end interface
+
+#ifdef WANT_SINGLE_PRECISION_REAL
+  interface check_correctness_single
+#ifdef WANT_SINGLE_PRECISION_COMPLEX
+    module procedure check_correctness_complex_single
+#endif
+    module procedure check_correctness_real_single
+  end interface
+#endif
+
+  contains
+
+#define COMPLEXCASE 1
+#define DOUBLE_PRECISION 1
+#include "../../src/precision_macros.h"
+#include "check_correctness_template.X90"
+#undef DOUBLE_PRECISION
+#undef COMPLEXCASE
+
+#ifdef WANT_SINGLE_PRECISION_COMPLEX
+
+#define COMPLEXCASE 1
+#define SINGLE_PRECISION 1
+#include "../../src/precision_macros.h"
+#include "check_correctness_template.X90"
+#undef SINGLE_PRECISION
+#undef COMPLEXCASE
+#endif /* WANT_SINGLE_PRECISION_COMPLEX */
+
+#define REALCASE 1
+#define DOUBLE_PRECISION 1
+#include "../../src/precision_macros.h"
+#include "check_correctness_template.X90"
+#undef DOUBLE_PRECISION
+#undef REALCASE
+
+#ifdef WANT_SINGLE_PRECISION_REAL
+
+#define REALCASE 1
+#define SINGLE_PRECISION 1
+#include "../../src/precision_macros.h"
+#include "check_correctness_template.X90"
+#undef SINGLE_PRECISION
+#undef REALCASE
+
+
+#endif /* WANT_SINGLE_PRECISION_REAL */
+
+
+end module mod_check_correctness

test/shared/prepare_matrix.F90

@@ -39,7 +39,7 @@
 !    any derivatives of ELPA under the same license that we chose for
 !    the original distribution, the GNU Lesser General Public License.
 !
-!
+! Author: A. Marek, MPCDF
 #include "config-f90.h"
 
 module mod_prepare_matrix

test/shared/prepare_matrix_template.X90

+!    This file is part of ELPA.
+!
+!    The ELPA library was originally created by the ELPA consortium,
+!    consisting of the following organizations:
+!
+!    - Max Planck Computing and Data Facility (MPCDF), formerly known as
+!      Rechenzentrum Garching der Max-Planck-Gesellschaft (RZG),
+!    - Bergische Universität Wuppertal, Lehrstuhl für angewandte
+!      Informatik,
+!    - Technische Universität München, Lehrstuhl für Informatik mit
+!      Schwerpunkt Wissenschaftliches Rechnen ,
+!    - Fritz-Haber-Institut, Berlin, Abt. Theorie,
+!    - Max-Plack-Institut für Mathematik in den Naturwissenschaften,
+!      Leipzig, Abt. Komplexe Strukutren in Biologie und Kognition,
+!      and
+!    - IBM Deutschland GmbH
+!
+!
+!    More information can be found here:
+!    http://elpa.mpcdf.mpg.de/
+!
+!    ELPA is free software: you can redistribute it and/or modify
+!    it under the terms of the version 3 of the license of the
+!    GNU Lesser General Public License as published by the Free
+!    Software Foundation.
+!
+!    ELPA is distributed in the hope that it will be useful,
+!    but WITHOUT ANY WARRANTY; without even the implied warranty of
+!    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+!    GNU Lesser General Public License for more details.
+!
+!    You should have received a copy of the GNU Lesser General Public License
+!    along with ELPA.  If not, see <http://www.gnu.org/licenses/>
+!
+!    ELPA reflects a substantial effort on the part of the original
+!    ELPA consortium, and we ask you to respect the spirit of the
+!    license that we chose: i.e., please contribute any changes you
+!    may have back to the original ELPA library distribution, and keep
+!    any derivatives of ELPA under the same license that we chose for
+!    the original distribution, the GNU Lesser General Public License.
+!
+! Author: A. Marek, MPCDF
 
     subroutine prepare_matrix_&
     &MATH_DATATYPE&