Commit 084cef6f authored by Andreas Marek's avatar Andreas Marek

Unify double/single real case compute_hh_trafo

parent 1ec934b8
......@@ -28,7 +28,7 @@ libelpa@SUFFIX@_private_la_SOURCES = \
src/mod_mpi_stubs.F90 \
src/mod_redist_band.F90 \
src/mod_pack_unpack_cpu.F90 \
src/mod_compute_hh_trafo_real.F90 \
src/mod_compute_hh_trafo.F90 \
src/mod_compute_hh_trafo_complex.F90 \
src/aligned_mem.F90 \
src/elpa1_compute_private.F90 \
......@@ -64,6 +64,7 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
src/elpa2_kernels/elpa2_kernels_simple_template.X90 \
src/pack_unpack_cpu.X90 \
src/pack_unpack_gpu.X90 \
src/compute_hh_trafo.X90 \
src/compute_hh_trafo_complex_gpu.X90 \
src/redist_band.X90 \
src/sanity.X90 \
......@@ -985,6 +986,7 @@ EXTRA_DIST = \
src/redist_band.X90 \
src/pack_unpack_cpu.X90 \
src/pack_unpack_gpu.X90 \
src/compute_hh_trafo.X90 \
src/compute_hh_trafo_complex_gpu.X90 \
src/sanity.X90 \
src/elpa_cholesky_template.X90 \
......
This diff is collapsed.
! 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.
!
! This file was written by A. Marek, MPCDF
module compute_hh_trafo_real
#include "config-f90.h"
use elpa_mpi
implicit none
#ifdef WITH_OPENMP
public compute_hh_trafo_real_cpu_openmp_double
#else
public compute_hh_trafo_real_cpu_double
#endif
#ifdef WANT_SINGLE_PRECISION_REAL
#ifdef WITH_OPENMP
public compute_hh_trafo_real_cpu_openmp_single
#else
public compute_hh_trafo_real_cpu_single
#endif
#endif
contains
!real double precision
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "precision_macros.h"
#include "compute_hh_trafo.X90"
#undef REALCASE
#undef DOUBLE_PRECISION
! real single precision
#if defined(WANT_SINGLE_PRECISION_REAL)
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "precision_macros.h"
#include "compute_hh_trafo.X90"
#undef REALCASE
#undef SINGLE_PRECISION
#endif
end module
This diff is collapsed.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment