Skip to content

GitLab

Commit 79de4eea authored by Andreas Marek's avatar Andreas Marek
Browse files

Move ELPA 1stage legacy C-interface definition in subdir

parent cdc3ec88
Hide whitespace changes
Inline Side-by-side
Makefile.am
View file @ 79de4eea
......@@ -40,7 +40,7 @@ libelpa@SUFFIX@_private_la_SOURCES = \
src/elpa2/kernels/mod_fortran_interfaces.F90 \
src/elpa2/kernels/mod_single_hh_trafo_real.F90 \
src/elpa_driver_c_interface.F90 \
src/elpa_1stage_c_interface.F90 \
src/elpa1/legacy_interface/elpa_1stage_c_interface_legacy.F90 \
src/elpa_2stage_c_interface.F90 \
src/GPU/check_for_gpu.F90 \
src/GPU/mod_cuda.F90 \
......@@ -62,14 +62,14 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
src/elpa1/elpa1_template_new_interface.X90 \
src/elpa2/elpa2_template.X90 \
src/elpa2/elpa2_template_new_interface.X90 \
src/elpa1_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa1_c_interface_template.X90 \
src/elpa2_c_interface_template.X90 \
src/elpa_driver_c_interface_template.X90 \
src/elpa_solve_tridi_c_interface_template.X90 \
src/elpa_mult_at_b_c_interface_template.X90 \
src/elpa_mult_ah_b_c_interface_template.X90 \
src/elpa_invert_trm_c_interface_template.X90 \
src/elpa_cholesky_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.X90 \
src/elpa2/elpa2_bandred_template.X90 \
src/elpa2/elpa2_symm_matrix_allreduce_real_template.X90 \
src/elpa2/elpa2_trans_ev_band_to_full_template.X90 \
......@@ -1115,14 +1115,14 @@ EXTRA_DIST = \
src/elpa1/elpa1_template_new_interface.X90 \
src/elpa2/elpa2_template.X90 \
src/elpa2/elpa2_template_new_interface.X90 \
src/elpa1_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa1_c_interface_template.X90 \
src/elpa2_c_interface_template.X90 \
src/elpa_driver_c_interface_template.X90 \
src/elpa_solve_tridi_c_interface_template.X90 \
src/elpa_mult_at_b_c_interface_template.X90 \
src/elpa_mult_ah_b_c_interface_template.X90 \
src/elpa_invert_trm_c_interface_template.X90 \
src/elpa_cholesky_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.X90 \
src/elpa2/elpa2_tridiag_band_template.X90 \
src/elpa2/elpa2_trans_ev_band_to_full_template.X90 \
src/elpa2/elpa2_trans_ev_tridi_to_band_template.X90 \
......@@ -1162,7 +1162,7 @@ EXTRA_DIST = \
#elpa/elpa_generated.h: $(top_srcdir)/src/elpa_driver_c_interface.F90
# grep -h "^ *!c>" $^ | sed 's/^ *!c>//;' > $@ || { rm $@; exit 1; }
#
#elpa/elpa_generated.h: $(top_srcdir)/src/elpa_1stage_c_interface.F90
#elpa/elpa_generated.h: $(top_srcdir)/src/elpa1/legacy_interface/elpa_1stage_c_interface_legacy.F90
# grep -h "^ *!c>" $^ | sed 's/^ *!c>//;' > $@ || { rm $@; exit 1; }
#
#elpa/elpa_generated.h: $(top_srcdir)/src/elpa_2stage_c_interface.F90
......
generated_headers.am
View file @ 79de4eea
......@@ -16,7 +16,7 @@ config-f90.h: config.h
elpa/elpa_generated.h: $(top_srcdir)/src/elpa_driver_c_interface.F90 | elpa
$(call extract_interface,!c>)
elpa/elpa_generated.h: $(top_srcdir)/src/elpa_1stage_c_interface.F90 | elpa
elpa/elpa_generated.h: $(top_srcdir)/src/elpa1/legacy_interface/elpa_1stage_c_interface_legacy.F90 | elpa
$(call extract_interface,!c>)
elpa/elpa_generated.h: $(top_srcdir)/src/elpa_2stage_c_interface.F90 | elpa
......
src/elpa_1stage_c_interface.F90 → src/elpa1/legacy_interface/elpa_1stage_c_interface_legacy.F90
View file @ 79de4eea
......@@ -147,7 +147,7 @@
!c>*/
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "precision_macros.h"
#include "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../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 "../../precision_macros.h"
#include "elpa_cholesky_c_interface_template.X90"
#undef SINGLE_PRECISION
#undef COMPLEXCASE
......
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