Commit f129a80a by Andreas Marek

### 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!