Skip to content

GitLab

elpa
elpa
Commit f129a80a authored by Andreas Marek's avatar Andreas Marek
Browse files
Options

Move some files in general subdir

parent 94dd8ce3
Hide whitespace changes
Inline Side-by-side
Showing with 143 additions and 143 deletions
Makefile.am
View file @ f129a80a
......@@ -83,7 +83,7 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
src/elpa2/pack_unpack_gpu.X90 \
src/elpa2/compute_hh_trafo.X90 \
src/elpa2/redist_band.X90 \
src/sanity.X90 \
src/general/sanity.X90 \
src/elpa1/legacy_interface/elpa_cholesky_template_legacy.X90 \
src/elpa1/elpa_cholesky_template_new_interface.X90 \
src/elpa1/legacy_interface/elpa_invert_trm_legacy.X90 \
......@@ -92,7 +92,7 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
src/elpa1/elpa_multiply_a_b_new_interface.X90 \
src/elpa1/legacy_interface/elpa_solve_tridi_legacy.X90 \
src/elpa1/elpa_solve_tridi_new_interface.X90 \
src/precision_macros.h
src/general/precision_macros.h
lib_LTLIBRARIES = libelpa@SUFFIX@.la
libelpa@SUFFIX@_la_LINK = $(FCLINK) $(AM_LDFLAGS) -version-info $(ELPA_SO_VERSION)
......@@ -1134,7 +1134,7 @@ EXTRA_DIST = \
src/elpa2/pack_unpack_cpu.X90 \
src/elpa2/pack_unpack_gpu.X90 \
src/elpa2/compute_hh_trafo.X90 \
src/sanity.X90 \
src/general/sanity.X90 \
src/elpa1/legacy_interface/elpa_cholesky_template_legacy.X90 \
src/elpa1/elpa_cholesky_template_new_interface.X90 \
src/elpa1/legacy_interface/elpa_invert_trm_legacy.X90 \
......
src/elpa1/elpa1_auxiliary_new_interface.F90
View file @ f129a80a
......@@ -90,7 +90,7 @@ module ELPA1_AUXILIARY_new
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
function elpa_cholesky_real_double_new (na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, &
wantDebug) result(success)
......@@ -101,7 +101,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
function elpa_cholesky_real_single_new(na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, &
wantDebug) result(success)
......@@ -113,7 +113,7 @@ module ELPA1_AUXILIARY_new
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_invert_trm_real_double: Inverts a double-precision real upper triangular matrix
!> \details
!> \param na Order of matrix
......@@ -136,7 +136,7 @@ module ELPA1_AUXILIARY_new
#if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_invert_trm_real_single_new: Inverts a single-precision real upper triangular matrix
!> \details
......@@ -162,7 +162,7 @@ module ELPA1_AUXILIARY_new
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_cholesky_complex_double_new: Cholesky factorization of a double-precision complex hermitian matrix
!> \details
......@@ -189,7 +189,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_cholesky_complex_single_new: Cholesky factorization of a single-precision complex hermitian matrix
!> \details
......@@ -216,7 +216,7 @@ module ELPA1_AUXILIARY_new
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_invert_trm_complex_double_new: Inverts a double-precision complex upper triangular matrix
!> \details
......@@ -241,7 +241,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_invert_trm_complex_single_new: Inverts a single-precision complex upper triangular matrix
!> \details
......@@ -267,7 +267,7 @@ module ELPA1_AUXILIARY_new
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
function elpa_mult_at_b_real_double_new(uplo_a, uplo_c, na, ncb, a, lda, ldaCols, b, ldb, ldbCols, nblk, &
mpi_comm_rows, mpi_comm_cols, c, ldc, ldcCols) result(success)
#include "elpa_multiply_a_b_new_interface.X90"
......@@ -276,7 +276,7 @@ module ELPA1_AUXILIARY_new
#if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_mult_at_b_real_single_new: Performs C : = A**T * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
......@@ -322,7 +322,7 @@ module ELPA1_AUXILIARY_new
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_mult_ah_b_complex_double_new: Performs C : = A**H * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
......@@ -367,7 +367,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_mult_ah_b_complex_single_new: Performs C : = A**H * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
......@@ -414,7 +414,7 @@ module ELPA1_AUXILIARY_new
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_solve_tridi_double_new: Solve tridiagonal eigensystem for a double-precision matrix with divide and conquer method
!> \details
......@@ -444,7 +444,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_solve_tridi_single_new: Solve tridiagonal eigensystem for a single-precision matrix with divide and conquer method
!> \details
......
src/elpa1/elpa1_compute_private.F90
View file @ f129a80a
......@@ -159,7 +159,7 @@ module ELPA1_COMPUTE
#define DOUBLE_PRECISION_REAL 1
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90"
......@@ -170,7 +170,7 @@ module ELPA1_COMPUTE
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90"
......@@ -182,7 +182,7 @@ module ELPA1_COMPUTE
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90"
#undef COMPLEXCASE
......@@ -192,7 +192,7 @@ module ELPA1_COMPUTE
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90"
#undef COMPLEXCASE
......@@ -203,7 +203,7 @@ module ELPA1_COMPUTE
! real double precision
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa1_compute_template.X90"
#undef REALCASE
......@@ -215,7 +215,7 @@ module ELPA1_COMPUTE
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa1_compute_template.X90"
#undef REALCASE
......@@ -226,7 +226,7 @@ module ELPA1_COMPUTE
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa1_compute_template.X90"
#undef COMPLEXCASE
......@@ -237,7 +237,7 @@ module ELPA1_COMPUTE
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa1_compute_template.X90"
#undef COMPLEXCASE
......
src/elpa1/elpa1_compute_template.X90
View file @ f129a80a
......@@ -54,7 +54,7 @@
! Author: Andreas Marek, MPCDF
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
#if REALCASE == 1
......
src/elpa1/elpa1_merge_systems_real_template.X90
View file @ f129a80a
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
subroutine merge_systems_&
&PRECISION &
......
src/elpa1/elpa1_new_interface.F90
View file @ f129a80a
......@@ -260,7 +260,7 @@ end function elpa_get_communicators_new
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa1_template_new_interface.X90"
#undef REALCASE
#undef DOUBLE_PRECISION
......@@ -304,7 +304,7 @@ end function elpa_get_communicators_new
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa1_template_new_interface.X90"
#undef REALCASE
#undef SINGLE_PRECISION
......@@ -347,7 +347,7 @@ end function elpa_get_communicators_new
!> \result success
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa1_template_new_interface.X90"
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
......@@ -393,7 +393,7 @@ end function elpa_get_communicators_new
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa1_template_new_interface.X90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
......
src/elpa1/elpa1_solve_tridi_real_template.X90
View file @ f129a80a
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
subroutine solve_tridi_&
&PRECISION &
......
src/elpa1/elpa1_solve_tridi_real_template_new_interface.X90
View file @ f129a80a
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
subroutine solve_tridi_&
&PRECISION&
......
src/elpa1/elpa1_template_new_interface.X90
View file @ f129a80a
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
function elpa_solve_evp_&
&MATH_DATATYPE&
......
src/elpa1/elpa1_tools_template.X90
View file @ f129a80a
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
#if REALCASE == 1
......
src/elpa1/elpa1_trans_ev_template.X90
View file @ f129a80a
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
!> \brief Transforms the eigenvectors of a tridiagonal matrix back
!> to the eigenvectors of the original matrix
......
src/elpa1/elpa1_tridiag_template.X90
View file @ f129a80a
......@@ -81,7 +81,7 @@
!>
!> \param useGPU If true, GPU version of the subroutine will be used
!>
#include "../sanity.X90"
#include "../general/sanity.X90"
subroutine tridiag_&
&MATH_DATATYPE&
......
src/elpa1/elpa_cholesky_template_new_interface.X90
View file @ f129a80a
......@@ -42,7 +42,7 @@
! any derivatives of ELPA under the same license that we chose for
! the original distribution, the GNU Lesser General Public License.
#include "../sanity.X90"
#include "../general/sanity.X90"
use elpa1_compute
use elpa_utilities
use elpa_mpi
......
src/elpa1/elpa_invert_trm_new_interface.X90
View file @ f129a80a
......@@ -50,7 +50,7 @@
! with their original authors, but shall adhere to the licensing terms
! distributed along with the original code in the file "COPYING".
#include "../sanity.X90"
#include "../general/sanity.X90"
use precision
use elpa1_compute
......
src/elpa1/elpa_multiply_a_b_new_interface.X90
View file @ f129a80a
......@@ -53,7 +53,7 @@
! Author: A. Marek, MPCDF
#include "../sanity.X90"
#include "../general/sanity.X90"
#ifdef HAVE_DETAILED_TIMINGS
use timings
......
src/elpa1/elpa_reduce_add_vectors.X90
View file @ f129a80a
......@@ -44,7 +44,7 @@
#endif
#include "config-f90.h"
#include "../sanity.X90"
#include "../general/sanity.X90"
subroutine elpa_reduce_add_vectors_&
&MATH_DATATYPE&
......
src/elpa1/elpa_solve_tridi_new_interface.X90
View file @ f129a80a
......@@ -54,7 +54,7 @@
#include "../sanity.X90"
#include "../general/sanity.X90"
use elpa1_compute, solve_tridi_&
&PRECISION&
......
src/elpa1/elpa_transpose_vectors.X90
View file @ f129a80a
......@@ -48,7 +48,7 @@
#endif
#include "config-f90.h"
#include "../sanity.X90"
#include "../general/sanity.X90"
subroutine elpa_transpose_vectors_&
&MATH_DATATYPE&
......
src/elpa1/legacy_interface/elpa1_auxiliary_legacy.F90
View file @ f129a80a
......@@ -283,7 +283,7 @@ module ELPA1_AUXILIARY_legacy
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
function elpa_cholesky_real_double(na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, &
......@@ -295,7 +295,7 @@ module ELPA1_AUXILIARY_legacy
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief cholesky_real_single: Cholesky factorization of a single-precision real symmetric matrix
!> \details
......@@ -324,7 +324,7 @@ module ELPA1_AUXILIARY_legacy
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_invert_trm_real_double: Inverts a double-precision real upper triangular matrix
!> \details
!> \param na Order of matrix
......@@ -346,7 +346,7 @@ module ELPA1_AUXILIARY_legacy
#if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_invert_trm_real_single: Inverts a single-precision real upper triangular matrix
!> \details
......@@ -371,7 +371,7 @@ module ELPA1_AUXILIARY_legacy
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_cholesky_complex_double: Cholesky factorization of a double-precision complex hermitian matrix
!> \details
......@@ -398,7 +398,7 @@ module ELPA1_AUXILIARY_legacy
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_cholesky_complex_single: Cholesky factorization of a single-precision complex hermitian matrix
!> \details
......@@ -425,7 +425,7 @@ module ELPA1_AUXILIARY_legacy
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_invert_trm_complex_double: Inverts a double-precision complex upper triangular matrix
!> \details
......@@ -449,7 +449,7 @@ module ELPA1_AUXILIARY_legacy
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_invert_trm_complex_single: Inverts a single-precision complex upper triangular matrix
!> \details
......@@ -474,7 +474,7 @@ module ELPA1_AUXILIARY_legacy
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief mult_at_b_real_double: Performs C : = A**T * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
!> B is a (na,ncb) matrix
......@@ -515,7 +515,7 @@ module ELPA1_AUXILIARY_legacy
#if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_mult_at_b_real_single: Performs C : = A**T * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
......@@ -561,7 +561,7 @@ module ELPA1_AUXILIARY_legacy
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_mult_ah_b_complex_double: Performs C : = A**H * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
......@@ -606,7 +606,7 @@ module ELPA1_AUXILIARY_legacy
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_mult_ah_b_complex_single: Performs C : = A**H * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
......@@ -653,7 +653,7 @@ module ELPA1_AUXILIARY_legacy
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_solve_tridi_double: Solve tridiagonal eigensystem for a double-precision matrix with divide and conquer method
!> \details
......@@ -683,7 +683,7 @@ module ELPA1_AUXILIARY_legacy
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief elpa_solve_tridi_single: Solve tridiagonal eigensystem for a single-precision matrix with divide and conquer method
!> \details
......
src/elpa1/legacy_interface/elpa1_legacy.F90
View file @ f129a80a
......@@ -559,7 +559,7 @@ end function elpa_get_communicators
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa1_template_legacy.X90"
#undef REALCASE
#undef DOUBLE_PRECISION
......@@ -603,7 +603,7 @@ end function elpa_get_communicators
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa1_template_legacy.X90"
#undef REALCASE
#undef SINGLE_PRECISION
......@@ -646,7 +646,7 @@ end function elpa_get_communicators
!> \result success
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa1_template_legacy.X90"
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
......@@ -692,7 +692,7 @@ end function elpa_get_communicators
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa1_template_legacy.X90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
......
src/elpa1/legacy_interface/elpa1_template_legacy.X90
View file @ f129a80a
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../../sanity.X90"
#include "../../general/sanity.X90"
function elpa_solve_evp_&
&MATH_DATATYPE&
......
src/elpa1/legacy_interface/elpa_1stage_c_interface_legacy.F90
View file @ f129a80a
......@@ -147,7 +147,7 @@
!c>*/
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#if DOUBLE_PRECISION == 1
!c> int elpa_solve_evp_real_1stage_double_precision(int na, int nev, double *a, int lda, double *ev, double *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int useGPU);
......@@ -187,7 +187,7 @@
#define REALCASE 1
#undef DOUBLE_PRECISION
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#if DOUBLE_PRECISION == 1
!c> int elpa_solve_evp_real_1stage_double_precision(int na, int nev, double *a, int lda, double *ev, double *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int useGPU);
......@@ -226,7 +226,7 @@
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#if DOUBLE_PRECISION == 1
!c> int elpa_solve_evp_complex_1stage_double_precision(int na, int nev, double complex *a, int lda, double *ev, double complex *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int useGPU);
......@@ -266,7 +266,7 @@
#define COMPLEXCASE 1
#undef DOUBLE_PRECISION
#define SINGLE_PRECISION
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#if DOUBLE_PRECISION == 1
!c> int elpa_solve_evp_complex_1stage_double_precision(int na, int nev, double complex *a, int lda, double *ev, double complex *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int useGPU);
......@@ -301,7 +301,7 @@
!c> int elpa_solve_tridi_double(int na, int nev, double *d, double *e, double *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_solve_tridi_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef REALCASE
......@@ -329,7 +329,7 @@
!c> int elpa_solve_tridi_single(int na, int nev, float *d, float *e, float *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_solve_tridi_c_interface_template.X90"
#undef SINGLE_PRECISION
#undef REALCASE
......@@ -376,7 +376,7 @@
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_mult_at_b_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef REALCASE
......@@ -422,7 +422,7 @@
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_mult_at_b_c_interface_template.X90"
#undef SINGLE_PRECISION
#undef REALCASE
......@@ -466,7 +466,7 @@
!c> int elpa_mult_ah_b_complex_double(char uplo_a, char uplo_c, int na, int ncb, double complex *a, int lda, int ldaCols, double complex *b, int ldb, int ldbCols, int nblk, int mpi_comm_rows, int mpi_comm_cols, double complex *c, int ldc, int ldcCols);
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_mult_ah_b_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
......@@ -511,7 +511,7 @@
!c> int elpa_mult_ah_b_complex_single(char uplo_a, char uplo_c, int na, int ncb, complex *a, int lda, int ldaCols, complex *b, int ldb, int ldbCols, int nblk, int mpi_comm_rows, int mpi_comm_cols, complex *c, int ldc, int ldcCols);
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_mult_ah_b_c_interface_template.X90"
#undef SINGLE_PRECISION
#undef COMPLEXCASE
......@@ -537,7 +537,7 @@
!c> int elpa_invert_trm_real_double(int na, double *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_invert_trm_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef REALCASE
......@@ -565,7 +565,7 @@
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_invert_trm_c_interface_template.X90"
#undef SINGLE_PRECISION
#undef REALCASE
......@@ -592,7 +592,7 @@
!c> int elpa_invert_trm_complex_double(int na, double complex *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_invert_trm_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
......@@ -618,7 +618,7 @@
!c> int elpa_invert_trm_complex_single(int na, complex *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_invert_trm_c_interface_template.X90"
#undef SINGLE_PRECISION
#undef COMPLEXCASE
......@@ -648,7 +648,7 @@
!c> int elpa_cholesky_real_double(int na, double *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_cholesky_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef REALCASE
......@@ -677,7 +677,7 @@
!c> int elpa_cholesky_real_single(int na, float *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_cholesky_c_interface_template.X90"
#undef SINGLE_PRECISION
#undef REALCASE
......@@ -706,7 +706,7 @@
!c> int elpa_cholesky_complex_double(int na, double complex *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_cholesky_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
......@@ -734,7 +734,7 @@
!c> int elpa_cholesky_complex_single(int na, complex *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
#define COMPLEXCASE 1
<