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

Move some files in general subdir

parent 94dd8ce3
......@@ -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&
......
......@@ -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
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa_cholesky_c_interface_template.X90"
#undef SINGLE_PRECISION
#undef COMPLEXCASE
......
......@@ -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 elpa_type
! use elpa1_compute
! use elpa_utilities
......
......@@ -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 elpa_type
......
......@@ -53,7 +53,7 @@
! Author: A. Marek, MPCDF
#include "../../sanity.X90"
#include "../../general/sanity.X90"
use elpa_type
#ifdef HAVE_DETAILED_TIMINGS
use timings
......
......@@ -54,7 +54,7 @@
#include "../../sanity.X90"
#include "../../general/sanity.X90"
!use elpa1_compute, solve_tridi_&
! &PRECISION&
......
......@@ -105,7 +105,7 @@ module ELPA2_compute
! real double precision
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa2_compute_real_template.X90"
#undef REALCASE
#undef DOUBLE_PRECISION
......@@ -115,7 +115,7 @@ module ELPA2_compute
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa2_compute_real_template.X90"
#undef REALCASE
#undef SINGLE_PRECISION
......@@ -125,7 +125,7 @@ module ELPA2_compute
! complex double precision
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa2_compute_complex_template.X90"
#undef COMPLEXCASE
#undef DOUBLE_PRECISION
......@@ -135,7 +135,7 @@ module ELPA2_compute
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
#include "elpa2_compute_complex_template.X90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
......
......@@ -54,7 +54,7 @@
! Author: Andreas Marek, MPCDF
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
#define COMPLEXCASE 1
#undef REALCASE
......
......@@ -53,7 +53,7 @@
! Author: Andreas Marek, MPCDF
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
#define REALCASE 1
#undef COMPLEXCASE
......
......@@ -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"
subroutine herm_matrix_allreduce_&
&PRECISION &
......
......@@ -82,7 +82,7 @@ module ELPA2_new
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!-------------------------------------------------------------------------------
!> \brief elpasolve_evp_real_2stage_double_new: Fortran function to solve the double-precision real eigenvalue problem with a 2 stage approach
!>
......@@ -130,7 +130,7 @@ module ELPA2_new
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!-------------------------------------------------------------------------------
!> \brief elpa_solve_evp_real_2stage_single_new: Fortran function to solve the single-precision real eigenvalue problem with a 2 stage approach
!>
......@@ -179,7 +179,7 @@ module ELPA2_new
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_solve_evp_complex_2stage_double_new: Fortran function to solve the double-precision complex eigenvalue problem with a 2 stage approach
!>
!> Parameters
......@@ -225,7 +225,7 @@ module ELPA2_new
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../precision_macros.h"
#include "../general/precision_macros.h"
!> \brief elpa_solve_evp_complex_2stage_single_new: Fortran function to solve the single-precision complex eigenvalue problem with a 2 stage approach
!>
......
......@@ -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"
subroutine symm_matrix_allreduce_&
&PRECISION &
......
......@@ -49,7 +49,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
subroutine trans_ev_band_to_full_&
&MATH_DATATYPE&
......
......@@ -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"
subroutine trans_ev_tridi_to_band_&
&MATH_DATATYPE&
......
......@@ -49,7 +49,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../sanity.X90"
#include "../general/sanity.X90"
#if REALCASE == 1
subroutine tridiag_band_real_&
......
......@@ -72,7 +72,7 @@ module complex_generic_simple_kernel
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa2_kernels_simple_template.X90"
#undef COMPLEXCASE
#undef DOUBLE_PRECISION
......@@ -80,7 +80,7 @@ module complex_generic_simple_kernel
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa2_kernels_simple_template.X90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
......
......@@ -75,7 +75,7 @@ module real_generic_kernel
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa2_kernels_real_template.X90"
#undef REALCASE
#undef DOUBLE_PRECISION
......@@ -83,7 +83,7 @@ module real_generic_kernel
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa2_kernels_real_template.X90"
#undef REALCASE
#undef SINGLE_PRECISION
......
......@@ -73,7 +73,7 @@ module real_generic_simple_kernel
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa2_kernels_simple_template.X90"
#undef REALCASE
#undef DOUBLE_PRECISION
......@@ -81,7 +81,7 @@ module real_generic_simple_kernel
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "elpa2_kernels_simple_template.X90"
#undef REALCASE
#undef SINGLE_PRECISION
......
......@@ -354,7 +354,7 @@ module elpa2_legacy
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!-------------------------------------------------------------------------------
!> \brief solve_evp_real_2stage_double: Fortran function to solve the double-precision real eigenvalue problem with a 2 stage approach
!>
......@@ -402,7 +402,7 @@ module elpa2_legacy
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!-------------------------------------------------------------------------------
!> \brief solve_evp_real_2stage_single: Fortran function to solve the single-precision real eigenvalue problem with a 2 stage approach
!>
......@@ -451,7 +451,7 @@ module elpa2_legacy
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief solve_evp_complex_2stage_double: Fortran function to solve the double-precision complex eigenvalue problem with a 2 stage approach
!>
!> Parameters
......@@ -497,7 +497,7 @@ module elpa2_legacy
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
!> \brief solve_evp_complex_2stage_single: Fortran function to solve the single-precision complex eigenvalue problem with a 2 stage approach
!>
......
......@@ -77,7 +77,7 @@
!c> int elpa_solve_evp_real_2stage_single_precision(int na, int nev, float *a, int lda, float *ev, float *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_REAL_ELPA_KERNEL_API, int useQR, int useGPU);
#endif
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa2_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef REALCASE
......@@ -120,7 +120,7 @@
!c> int elpa_solve_evp_real_2stage_single_precision(int na, int nev, float *a, int lda, float *ev, float *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_REAL_ELPA_KERNEL_API, int useQR, int useGPU);
#endif
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa2_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef SINGLE_PRECISION
......@@ -164,7 +164,7 @@
!c> int elpa_solve_evp_complex_2stage_single_precision(int na, int nev, complex *a, int lda, float *ev, complex *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
#endif
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa2_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
......@@ -207,7 +207,7 @@
!c> int elpa_solve_evp_complex_2stage_single_precision(int na, int nev, complex *a, int lda, float *ev, complex *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
#endif
#include "../../precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa2_c_interface_template.X90"
#undef DOUBLE_PRECISION
#undef SINGLE_PRECISION
......
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