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

Move some files in general subdir

parent 94dd8ce3
...@@ -83,7 +83,7 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \ ...@@ -83,7 +83,7 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
src/elpa2/pack_unpack_gpu.X90 \ src/elpa2/pack_unpack_gpu.X90 \
src/elpa2/compute_hh_trafo.X90 \ src/elpa2/compute_hh_trafo.X90 \
src/elpa2/redist_band.X90 \ src/elpa2/redist_band.X90 \
src/sanity.X90 \ src/general/sanity.X90 \
src/elpa1/legacy_interface/elpa_cholesky_template_legacy.X90 \ src/elpa1/legacy_interface/elpa_cholesky_template_legacy.X90 \
src/elpa1/elpa_cholesky_template_new_interface.X90 \ src/elpa1/elpa_cholesky_template_new_interface.X90 \
src/elpa1/legacy_interface/elpa_invert_trm_legacy.X90 \ src/elpa1/legacy_interface/elpa_invert_trm_legacy.X90 \
...@@ -92,7 +92,7 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \ ...@@ -92,7 +92,7 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
src/elpa1/elpa_multiply_a_b_new_interface.X90 \ src/elpa1/elpa_multiply_a_b_new_interface.X90 \
src/elpa1/legacy_interface/elpa_solve_tridi_legacy.X90 \ src/elpa1/legacy_interface/elpa_solve_tridi_legacy.X90 \
src/elpa1/elpa_solve_tridi_new_interface.X90 \ src/elpa1/elpa_solve_tridi_new_interface.X90 \
src/precision_macros.h src/general/precision_macros.h
lib_LTLIBRARIES = libelpa@SUFFIX@.la lib_LTLIBRARIES = libelpa@SUFFIX@.la
libelpa@SUFFIX@_la_LINK = $(FCLINK) $(AM_LDFLAGS) -version-info $(ELPA_SO_VERSION) libelpa@SUFFIX@_la_LINK = $(FCLINK) $(AM_LDFLAGS) -version-info $(ELPA_SO_VERSION)
...@@ -1134,7 +1134,7 @@ EXTRA_DIST = \ ...@@ -1134,7 +1134,7 @@ EXTRA_DIST = \
src/elpa2/pack_unpack_cpu.X90 \ src/elpa2/pack_unpack_cpu.X90 \
src/elpa2/pack_unpack_gpu.X90 \ src/elpa2/pack_unpack_gpu.X90 \
src/elpa2/compute_hh_trafo.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/legacy_interface/elpa_cholesky_template_legacy.X90 \
src/elpa1/elpa_cholesky_template_new_interface.X90 \ src/elpa1/elpa_cholesky_template_new_interface.X90 \
src/elpa1/legacy_interface/elpa_invert_trm_legacy.X90 \ src/elpa1/legacy_interface/elpa_invert_trm_legacy.X90 \
......
...@@ -90,7 +90,7 @@ module ELPA1_AUXILIARY_new ...@@ -90,7 +90,7 @@ module ELPA1_AUXILIARY_new
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION #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, & function elpa_cholesky_real_double_new (na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, &
wantDebug) result(success) wantDebug) result(success)
...@@ -101,7 +101,7 @@ module ELPA1_AUXILIARY_new ...@@ -101,7 +101,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_REAL #ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1 #define REALCASE 1
#define SINGLE_PRECISION #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, & function elpa_cholesky_real_single_new(na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, &
wantDebug) result(success) wantDebug) result(success)
...@@ -113,7 +113,7 @@ module ELPA1_AUXILIARY_new ...@@ -113,7 +113,7 @@ module ELPA1_AUXILIARY_new
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION #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 !> \brief elpa_invert_trm_real_double: Inverts a double-precision real upper triangular matrix
!> \details !> \details
!> \param na Order of matrix !> \param na Order of matrix
...@@ -136,7 +136,7 @@ module ELPA1_AUXILIARY_new ...@@ -136,7 +136,7 @@ module ELPA1_AUXILIARY_new
#if WANT_SINGLE_PRECISION_REAL #if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1 #define REALCASE 1
#define SINGLE_PRECISION #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 !> \brief elpa_invert_trm_real_single_new: Inverts a single-precision real upper triangular matrix
!> \details !> \details
...@@ -162,7 +162,7 @@ module ELPA1_AUXILIARY_new ...@@ -162,7 +162,7 @@ module ELPA1_AUXILIARY_new
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define DOUBLE_PRECISION #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 !> \brief elpa_cholesky_complex_double_new: Cholesky factorization of a double-precision complex hermitian matrix
!> \details !> \details
...@@ -189,7 +189,7 @@ module ELPA1_AUXILIARY_new ...@@ -189,7 +189,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_COMPLEX #ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define SINGLE_PRECISION #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 !> \brief elpa_cholesky_complex_single_new: Cholesky factorization of a single-precision complex hermitian matrix
!> \details !> \details
...@@ -216,7 +216,7 @@ module ELPA1_AUXILIARY_new ...@@ -216,7 +216,7 @@ module ELPA1_AUXILIARY_new
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define DOUBLE_PRECISION #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 !> \brief elpa_invert_trm_complex_double_new: Inverts a double-precision complex upper triangular matrix
!> \details !> \details
...@@ -241,7 +241,7 @@ module ELPA1_AUXILIARY_new ...@@ -241,7 +241,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_COMPLEX #ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define SINGLE_PRECISION #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 !> \brief elpa_invert_trm_complex_single_new: Inverts a single-precision complex upper triangular matrix
!> \details !> \details
...@@ -267,7 +267,7 @@ module ELPA1_AUXILIARY_new ...@@ -267,7 +267,7 @@ module ELPA1_AUXILIARY_new
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION #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, & 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) mpi_comm_rows, mpi_comm_cols, c, ldc, ldcCols) result(success)
#include "elpa_multiply_a_b_new_interface.X90" #include "elpa_multiply_a_b_new_interface.X90"
...@@ -276,7 +276,7 @@ module ELPA1_AUXILIARY_new ...@@ -276,7 +276,7 @@ module ELPA1_AUXILIARY_new
#if WANT_SINGLE_PRECISION_REAL #if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1 #define REALCASE 1
#define SINGLE_PRECISION #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 !> \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 !> where A is a square matrix (na,na) which is optionally upper or lower triangular
...@@ -322,7 +322,7 @@ module ELPA1_AUXILIARY_new ...@@ -322,7 +322,7 @@ module ELPA1_AUXILIARY_new
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define DOUBLE_PRECISION #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 !> \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 !> where A is a square matrix (na,na) which is optionally upper or lower triangular
...@@ -367,7 +367,7 @@ module ELPA1_AUXILIARY_new ...@@ -367,7 +367,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_COMPLEX #ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define SINGLE_PRECISION #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 !> \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 !> where A is a square matrix (na,na) which is optionally upper or lower triangular
...@@ -414,7 +414,7 @@ module ELPA1_AUXILIARY_new ...@@ -414,7 +414,7 @@ module ELPA1_AUXILIARY_new
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION #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 !> \brief elpa_solve_tridi_double_new: Solve tridiagonal eigensystem for a double-precision matrix with divide and conquer method
!> \details !> \details
...@@ -444,7 +444,7 @@ module ELPA1_AUXILIARY_new ...@@ -444,7 +444,7 @@ module ELPA1_AUXILIARY_new
#ifdef WANT_SINGLE_PRECISION_REAL #ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1 #define REALCASE 1
#define SINGLE_PRECISION #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 !> \brief elpa_solve_tridi_single_new: Solve tridiagonal eigensystem for a single-precision matrix with divide and conquer method
!> \details !> \details
......
...@@ -159,7 +159,7 @@ module ELPA1_COMPUTE ...@@ -159,7 +159,7 @@ module ELPA1_COMPUTE
#define DOUBLE_PRECISION_REAL 1 #define DOUBLE_PRECISION_REAL 1
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION 1 #define DOUBLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa_transpose_vectors.X90" #include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90" #include "elpa_reduce_add_vectors.X90"
...@@ -170,7 +170,7 @@ module ELPA1_COMPUTE ...@@ -170,7 +170,7 @@ module ELPA1_COMPUTE
#define REALCASE 1 #define REALCASE 1
#define SINGLE_PRECISION 1 #define SINGLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa_transpose_vectors.X90" #include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90" #include "elpa_reduce_add_vectors.X90"
...@@ -182,7 +182,7 @@ module ELPA1_COMPUTE ...@@ -182,7 +182,7 @@ module ELPA1_COMPUTE
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define DOUBLE_PRECISION 1 #define DOUBLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa_transpose_vectors.X90" #include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90" #include "elpa_reduce_add_vectors.X90"
#undef COMPLEXCASE #undef COMPLEXCASE
...@@ -192,7 +192,7 @@ module ELPA1_COMPUTE ...@@ -192,7 +192,7 @@ module ELPA1_COMPUTE
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define SINGLE_PRECISION 1 #define SINGLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa_transpose_vectors.X90" #include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90" #include "elpa_reduce_add_vectors.X90"
#undef COMPLEXCASE #undef COMPLEXCASE
...@@ -203,7 +203,7 @@ module ELPA1_COMPUTE ...@@ -203,7 +203,7 @@ module ELPA1_COMPUTE
! real double precision ! real double precision
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION 1 #define DOUBLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa1_compute_template.X90" #include "elpa1_compute_template.X90"
#undef REALCASE #undef REALCASE
...@@ -215,7 +215,7 @@ module ELPA1_COMPUTE ...@@ -215,7 +215,7 @@ module ELPA1_COMPUTE
#define REALCASE 1 #define REALCASE 1
#define SINGLE_PRECISION 1 #define SINGLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa1_compute_template.X90" #include "elpa1_compute_template.X90"
#undef REALCASE #undef REALCASE
...@@ -226,7 +226,7 @@ module ELPA1_COMPUTE ...@@ -226,7 +226,7 @@ module ELPA1_COMPUTE
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define DOUBLE_PRECISION 1 #define DOUBLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa1_compute_template.X90" #include "elpa1_compute_template.X90"
#undef COMPLEXCASE #undef COMPLEXCASE
...@@ -237,7 +237,7 @@ module ELPA1_COMPUTE ...@@ -237,7 +237,7 @@ module ELPA1_COMPUTE
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define SINGLE_PRECISION 1 #define SINGLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa1_compute_template.X90" #include "elpa1_compute_template.X90"
#undef COMPLEXCASE #undef COMPLEXCASE
......
...@@ -54,7 +54,7 @@ ...@@ -54,7 +54,7 @@
! Author: Andreas Marek, MPCDF ! Author: Andreas Marek, MPCDF
#endif #endif
#include "../sanity.X90" #include "../general/sanity.X90"
#if REALCASE == 1 #if REALCASE == 1
......
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
#endif #endif
#include "../sanity.X90" #include "../general/sanity.X90"
subroutine merge_systems_& subroutine merge_systems_&
&PRECISION & &PRECISION &
......
...@@ -260,7 +260,7 @@ end function elpa_get_communicators_new ...@@ -260,7 +260,7 @@ end function elpa_get_communicators_new
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION 1 #define DOUBLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa1_template_new_interface.X90" #include "elpa1_template_new_interface.X90"
#undef REALCASE #undef REALCASE
#undef DOUBLE_PRECISION #undef DOUBLE_PRECISION
...@@ -304,7 +304,7 @@ end function elpa_get_communicators_new ...@@ -304,7 +304,7 @@ end function elpa_get_communicators_new
#define REALCASE 1 #define REALCASE 1
#define SINGLE_PRECISION 1 #define SINGLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa1_template_new_interface.X90" #include "elpa1_template_new_interface.X90"
#undef REALCASE #undef REALCASE
#undef SINGLE_PRECISION #undef SINGLE_PRECISION
...@@ -347,7 +347,7 @@ end function elpa_get_communicators_new ...@@ -347,7 +347,7 @@ end function elpa_get_communicators_new
!> \result success !> \result success
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define DOUBLE_PRECISION 1 #define DOUBLE_PRECISION 1
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa1_template_new_interface.X90" #include "elpa1_template_new_interface.X90"
#undef DOUBLE_PRECISION #undef DOUBLE_PRECISION
#undef COMPLEXCASE #undef COMPLEXCASE
...@@ -393,7 +393,7 @@ end function elpa_get_communicators_new ...@@ -393,7 +393,7 @@ end function elpa_get_communicators_new
#define COMPLEXCASE 1 #define COMPLEXCASE 1
#define SINGLE_PRECISION #define SINGLE_PRECISION
#include "../precision_macros.h" #include "../general/precision_macros.h"
#include "elpa1_template_new_interface.X90" #include "elpa1_template_new_interface.X90"
#undef COMPLEXCASE #undef COMPLEXCASE
#undef SINGLE_PRECISION #undef SINGLE_PRECISION
......
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
#endif #endif
#include "../sanity.X90" #include "../general/sanity.X90"
subroutine solve_tridi_& subroutine solve_tridi_&
&PRECISION & &PRECISION &
......
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
#endif #endif
#include "../sanity.X90" #include "../general/sanity.X90"
subroutine solve_tridi_& subroutine solve_tridi_&
&PRECISION& &PRECISION&
......
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
#endif #endif
#include "../sanity.X90" #include "../general/sanity.X90"
function elpa_solve_evp_& function elpa_solve_evp_&
&MATH_DATATYPE& &MATH_DATATYPE&
......
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
#endif #endif
#include "../sanity.X90" #include "../general/sanity.X90"
#if REALCASE == 1 #if REALCASE == 1
......
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
#endif #endif
#include "../sanity.X90" #include "../general/sanity.X90"
!> \brief Transforms the eigenvectors of a tridiagonal matrix back !> \brief Transforms the eigenvectors of a tridiagonal matrix back
!> to the eigenvectors of the original matrix !> to the eigenvectors of the original matrix
......
...@@ -81,7 +81,7 @@ ...@@ -81,7 +81,7 @@
!> !>
!> \param useGPU If true, GPU version of the subroutine will be used !> \param useGPU If true, GPU version of the subroutine will be used
!> !>
#include "../sanity.X90" #include "../general/sanity.X90"
subroutine tridiag_& subroutine tridiag_&
&MATH_DATATYPE& &MATH_DATATYPE&
......
...@@ -42,7 +42,7 @@ ...@@ -42,7 +42,7 @@
! any derivatives of ELPA under the same license that we chose for ! any derivatives of ELPA under the same license that we chose for
! the original distribution, the GNU Lesser General Public License. ! the original distribution, the GNU Lesser General Public License.
#include "../sanity.X90" #include "../general/sanity.X90"
use elpa1_compute use elpa1_compute
use elpa_utilities use elpa_utilities
use elpa_mpi use elpa_mpi
......
...@@ -50,7 +50,7 @@ ...@@ -50,7 +50,7 @@
! with their original authors, but shall adhere to the licensing terms ! with their original authors, but shall adhere to the licensing terms
! distributed along with the original code in the file "COPYING". ! distributed along with the original code in the file "COPYING".
#include "../sanity.X90" #include "../general/sanity.X90"
use precision use precision
use elpa1_compute use elpa1_compute
......
...@@ -53,7 +53,7 @@ ...@@ -53,7 +53,7 @@
! Author: A. Marek, MPCDF ! Author: A. Marek, MPCDF
#include "../sanity.X90" #include "../general/sanity.X90"
#ifdef HAVE_DETAILED_TIMINGS #ifdef HAVE_DETAILED_TIMINGS
use timings use timings
......
...@@ -44,7 +44,7 @@ ...@@ -44,7 +44,7 @@
#endif #endif
#include "config-f90.h" #include "config-f90.h"
#include "../sanity.X90" #include "../general/sanity.X90"
subroutine elpa_reduce_add_vectors_& subroutine elpa_reduce_add_vectors_&
&MATH_DATATYPE& &MATH_DATATYPE&
......
...@@ -54,7 +54,7 @@ ...@@ -54,7 +54,7 @@
#include "../sanity.X90" #include "../general/sanity.X90"
use elpa1_compute, solve_tridi_& use elpa1_compute, solve_tridi_&
&PRECISION& &PRECISION&
......
...@@ -48,7 +48,7 @@ ...@@ -48,7 +48,7 @@
#endif #endif
#include "config-f90.h" #include "config-f90.h"
#include "../sanity.X90" #include "../general/sanity.X90"
subroutine elpa_transpose_vectors_& subroutine elpa_transpose_vectors_&
&MATH_DATATYPE& &MATH_DATATYPE&
......
...@@ -283,7 +283,7 @@ module ELPA1_AUXILIARY_legacy ...@@ -283,7 +283,7 @@ module ELPA1_AUXILIARY_legacy
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION #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, & function elpa_cholesky_real_double(na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, &
...@@ -295,7 +295,7 @@ module ELPA1_AUXILIARY_legacy ...@@ -295,7 +295,7 @@ module ELPA1_AUXILIARY_legacy
#ifdef WANT_SINGLE_PRECISION_REAL #ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1 #define REALCASE 1
#define SINGLE_PRECISION #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 !> \brief cholesky_real_single: Cholesky factorization of a single-precision real symmetric matrix
!> \details !> \details
...@@ -324,7 +324,7 @@ module ELPA1_AUXILIARY_legacy ...@@ -324,7 +324,7 @@ module ELPA1_AUXILIARY_legacy
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION #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 !> \brief elpa_invert_trm_real_double: Inverts a double-precision real upper triangular matrix
!> \details !> \details
!> \param na Order of matrix !> \param na Order of matrix
...@@ -346,7 +346,7 @@ module ELPA1_AUXILIARY_legacy ...@@ -346,7 +346,7 @@ module ELPA1_AUXILIARY_legacy
#if WANT_SINGLE_PRECISION_REAL #if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1