Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
c1fc7a0b
Commit
c1fc7a0b
authored
Apr 07, 2017
by
Andreas Marek
Browse files
Template for chechk_correctness
parent
c9455ca8
Changes
5
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
Makefile.am
View file @
c1fc7a0b
...
...
@@ -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_correctnes
s
.i
:
$(top_srcdir)/test/shared_sources/check_correctnes
s
.F90
$(CPP)
$(CPPFLAGS)
-I
$(top_builddir)
/
-c
$(top_srcdir)
/test/shared_sources/check_correctnes
s
.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
0 → 100644
View file @
c1fc7a0b
! 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/check_correctnes
.F
90
→
test/shared/check_correctnes
s_template.X
90
View file @
c1fc7a0b
This diff is collapsed.
Click to expand it.
test/shared/prepare_matrix.F90
View file @
c1fc7a0b
...
...
@@ -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
View file @
c1fc7a0b
! 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&
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment