Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
elpa
elpa
Commits
c88242d4
Commit
c88242d4
authored
May 17, 2017
by
Andreas Marek
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Rename header file of legacy C interface
parent
c27fe3a6
Changes
13
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
13 changed files
with
716 additions
and
729 deletions
+716
-729
Makefile.am
Makefile.am
+1
-0
generated_headers.am
generated_headers.am
+7
-1
src/elpa1/legacy_interface/elpa_1stage_c_interface.F90
src/elpa1/legacy_interface/elpa_1stage_c_interface.F90
+460
-460
src/elpa2/legacy_interface/elpa_2stage_c_interface.F90
src/elpa2/legacy_interface/elpa_2stage_c_interface.F90
+112
-132
src/elpa_driver/legacy_interface/elpa_driver_c_interface.F90
src/elpa_driver/legacy_interface/elpa_driver_c_interface.F90
+128
-128
test/C/elpa1_test_complex_c_version.c
test/C/elpa1_test_complex_c_version.c
+1
-1
test/C/elpa1_test_real_c_version.c
test/C/elpa1_test_real_c_version.c
+1
-1
test/C/elpa2_test_complex_c_version.c
test/C/elpa2_test_complex_c_version.c
+1
-1
test/C/elpa2_test_real_c_version.c
test/C/elpa2_test_real_c_version.c
+1
-1
test/C/elpa_driver_complex_c_version.c
test/C/elpa_driver_complex_c_version.c
+1
-1
test/C/elpa_driver_complex_c_version_single.c
test/C/elpa_driver_complex_c_version_single.c
+1
-1
test/C/elpa_driver_real_c_version.c
test/C/elpa_driver_real_c_version.c
+1
-1
test/C/elpa_driver_real_c_version_single.c
test/C/elpa_driver_real_c_version_single.c
+1
-1
No files found.
Makefile.am
View file @
c88242d4
...
@@ -1177,6 +1177,7 @@ distclean-local:
...
@@ -1177,6 +1177,7 @@ distclean-local:
EXTRA_DIST
=
\
EXTRA_DIST
=
\
elpa/elpa.h
\
elpa/elpa.h
\
elpa/elpa_legacy.h
\
fdep/fortran_dependencies.pl
\
fdep/fortran_dependencies.pl
\
fdep/fortran_dependencies.mk
\
fdep/fortran_dependencies.mk
\
test
/Fortran/elpa_print_headers.X90
\
test
/Fortran/elpa_print_headers.X90
\
...
...
generated_headers.am
View file @
c88242d4
...
@@ -19,6 +19,12 @@ elpa/elpa_generated.h: $(top_srcdir)/src/elpa_driver/legacy_interface/elpa_drive
...
@@ -19,6 +19,12 @@ elpa/elpa_generated.h: $(top_srcdir)/src/elpa_driver/legacy_interface/elpa_drive
@
rm
-f
$@
@
rm
-f
$@
$(
call
extract_interface,!c>
)
$(
call
extract_interface,!c>
)
elpa/elpa_generated_legacy.h
:
$(top_srcdir)/src/elpa_driver/legacy_interface/elpa_driver_c_interface.F90
\
$(top_srcdir)/src/elpa1/legacy_interface/elpa_1stage_c_interface.F90
\
$(top_srcdir)/src/elpa2/legacy_interface/elpa_2stage_c_interface.F90 | elpa
@
rm
-f
$@
$(
call
extract_interface,!lc>
)
test/shared/generated.h
:
$(wildcard $(top_srcdir)/test/shared/*.*90) | test/shared
test/shared/generated.h
:
$(wildcard $(top_srcdir)/test/shared/*.*90) | test/shared
@
rm
-f
$@
@
rm
-f
$@
$(
call
extract_interface,!c>
)
$(
call
extract_interface,!c>
)
...
@@ -34,7 +40,7 @@ src/fortran_constants.X90: $(top_srcdir)/src/fortran_constants.h
...
@@ -34,7 +40,7 @@ src/fortran_constants.X90: $(top_srcdir)/src/fortran_constants.h
@
rm
$@
_
@
rm
$@
_
generated_headers
=
config-f90.h elpa/elpa_generated.h
test
/shared/generated.h elpa/elpa_generated_fortran_interfaces.h src/fortran_constants.X90
generated_headers
=
config-f90.h elpa/elpa_generated.h
elpa/elpa_generated_legacy.h
test
/shared/generated.h elpa/elpa_generated_fortran_interfaces.h src/fortran_constants.X90
generated-headers
:
$(generated_headers)
generated-headers
:
$(generated_headers)
...
...
src/elpa1/legacy_interface/elpa_1stage_c_interface.F90
View file @
c88242d4
This diff is collapsed.
Click to expand it.
src/elpa2/legacy_interface/elpa_2stage_c_interface.F90
View file @
c88242d4
...
@@ -42,42 +42,37 @@
...
@@ -42,42 +42,37 @@
! Author: Andreas Marek, MCPDF
! Author: Andreas Marek, MCPDF
#include "config-f90.h"
#include "config-f90.h"
!c> /*! \brief C interface to solve the double-precision real eigenvalue problem with 2-stage solver
!
l
c> /*! \brief C interface to solve the double-precision real eigenvalue problem with 2-stage solver
!c> *
!
l
c> *
!c> * \param na Order of matrix a
!
l
c> * \param na Order of matrix a
!c> * \param nev Number of eigenvalues needed.
!
l
c> * \param nev Number of eigenvalues needed.
!c> * The smallest nev eigenvalues/eigenvectors are calculated.
!
l
c> * The smallest nev eigenvalues/eigenvectors are calculated.
!c> * \param a Distributed matrix for which eigenvalues are to be computed.
!
l
c> * \param a Distributed matrix for which eigenvalues are to be computed.
!c> * Distribution is like in Scalapack.
!
l
c> * Distribution is like in Scalapack.
!c> * The full matrix must be set (not only one half like in scalapack).
!
l
c> * The full matrix must be set (not only one half like in scalapack).
!c> * \param lda Leading dimension of a
!
l
c> * \param lda Leading dimension of a
!c> * \param ev(na) On output: eigenvalues of a, every processor gets the complete set
!
l
c> * \param ev(na) On output: eigenvalues of a, every processor gets the complete set
!c> * \param q On output: Eigenvectors of a
!
l
c> * \param q On output: Eigenvectors of a
!c> * Distribution is like in Scalapack.
!
l
c> * Distribution is like in Scalapack.
!c> * Must be always dimensioned to the full size (corresponding to (na,na))
!
l
c> * Must be always dimensioned to the full size (corresponding to (na,na))
!c> * even if only a part of the eigenvalues is needed.
!
l
c> * even if only a part of the eigenvalues is needed.
!c> * \param ldq Leading dimension of q
!
l
c> * \param ldq Leading dimension of q
!c> * \param nblk blocksize of cyclic distribution, must be the same in both directions!
!
l
c> * \param nblk blocksize of cyclic distribution, must be the same in both directions!
!c> * \param matrixCols distributed number of matrix columns
!
l
c> * \param matrixCols distributed number of matrix columns
!c> * \param mpi_comm_rows MPI-Communicator for rows
!
l
c> * \param mpi_comm_rows MPI-Communicator for rows
!c> * \param mpi_comm_cols MPI-Communicator for columns
!
l
c> * \param mpi_comm_cols MPI-Communicator for columns
!c> * \param mpi_coll_all MPI communicator for the total processor set
!
l
c> * \param mpi_coll_all MPI communicator for the total processor set
!c> * \param THIS_REAL_ELPA_KERNEL_API specify used ELPA2 kernel via API
!
l
c> * \param THIS_REAL_ELPA_KERNEL_API specify used ELPA2 kernel via API
!c> * \param useQR use QR decomposition 1 = yes, 0 = no
!
l
c> * \param useQR use QR decomposition 1 = yes, 0 = no
!c> * \param useGPU use GPU (1=yes, 0=No)
!
l
c> * \param useGPU use GPU (1=yes, 0=No)
!c> *
!
l
c> *
!c> * \result int: 1 if error occured, otherwise 0
!
l
c> * \result int: 1 if error occured, otherwise 0
!c> */
!
l
c> */
#define REALCASE 1
#define REALCASE 1
#define DOUBLE_PRECISION 1
#define DOUBLE_PRECISION 1
#if DOUBLE_PRECISION == 1
!lc> int elpa_solve_evp_real_2stage_double_precision(int na, int nev, double *a, int lda, double *ev, double *q, int ldq, int nblk,
!c> int elpa_solve_evp_real_2stage_double_precision(int na, int nev, double *a, int lda, double *ev, double *q, int ldq, int nblk,
!lc> int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_REAL_ELPA_KERNEL_API, int useQR, int useGPU);
!c> int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_REAL_ELPA_KERNEL_API, int useQR, int useGPU);
#else
!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,
!c> 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 "../../general/precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa2_c_interface_template.X90"
#include "./elpa2_c_interface_template.X90"
...
@@ -86,43 +81,38 @@
...
@@ -86,43 +81,38 @@
#ifdef WANT_SINGLE_PRECISION_REAL
#ifdef WANT_SINGLE_PRECISION_REAL
!c> /*! \brief C interface to solve the single-precision real eigenvalue problem with 2-stage solver
!
l
c> /*! \brief C interface to solve the single-precision real eigenvalue problem with 2-stage solver
!c> *
!
l
c> *
!c> * \param na Order of matrix a
!
l
c> * \param na Order of matrix a
!c> * \param nev Number of eigenvalues needed.
!
l
c> * \param nev Number of eigenvalues needed.
!c> * The smallest nev eigenvalues/eigenvectors are calculated.
!
l
c> * The smallest nev eigenvalues/eigenvectors are calculated.
!c> * \param a Distributed matrix for which eigenvalues are to be computed.
!
l
c> * \param a Distributed matrix for which eigenvalues are to be computed.
!c> * Distribution is like in Scalapack.
!
l
c> * Distribution is like in Scalapack.
!c> * The full matrix must be set (not only one half like in scalapack).
!
l
c> * The full matrix must be set (not only one half like in scalapack).
!c> * \param lda Leading dimension of a
!
l
c> * \param lda Leading dimension of a
!c> * \param ev(na) On output: eigenvalues of a, every processor gets the complete set
!
l
c> * \param ev(na) On output: eigenvalues of a, every processor gets the complete set
!c> * \param q On output: Eigenvectors of a
!
l
c> * \param q On output: Eigenvectors of a
!c> * Distribution is like in Scalapack.
!
l
c> * Distribution is like in Scalapack.
!c> * Must be always dimensioned to the full size (corresponding to (na,na))
!
l
c> * Must be always dimensioned to the full size (corresponding to (na,na))
!c> * even if only a part of the eigenvalues is needed.
!
l
c> * even if only a part of the eigenvalues is needed.
!c> * \param ldq Leading dimension of q
!
l
c> * \param ldq Leading dimension of q
!c> * \param nblk blocksize of cyclic distribution, must be the same in both directions!
!
l
c> * \param nblk blocksize of cyclic distribution, must be the same in both directions!
!c> * \param matrixCols distributed number of matrix columns
!
l
c> * \param matrixCols distributed number of matrix columns
!c> * \param mpi_comm_rows MPI-Communicator for rows
!
l
c> * \param mpi_comm_rows MPI-Communicator for rows
!c> * \param mpi_comm_cols MPI-Communicator for columns
!
l
c> * \param mpi_comm_cols MPI-Communicator for columns
!c> * \param mpi_coll_all MPI communicator for the total processor set
!
l
c> * \param mpi_coll_all MPI communicator for the total processor set
!c> * \param THIS_REAL_ELPA_KERNEL_API specify used ELPA2 kernel via API
!
l
c> * \param THIS_REAL_ELPA_KERNEL_API specify used ELPA2 kernel via API
!c> * \param useQR use QR decomposition 1 = yes, 0 = no
!
l
c> * \param useQR use QR decomposition 1 = yes, 0 = no
!c> * \param useGPU use GPU (1=yes, 0=No)
!
l
c> * \param useGPU use GPU (1=yes, 0=No)
!c> *
!
l
c> *
!c> * \result int: 1 if error occured, otherwise 0
!
l
c> * \result int: 1 if error occured, otherwise 0
!c> */
!
l
c> */
#define REALCASE 1
#define REALCASE 1
#define SINGLE_PRECISION 1
#define SINGLE_PRECISION 1
#undef DOUBLE_PRECISION
#undef DOUBLE_PRECISION
#if DOUBLE_PRECISION == 1
!lc> int elpa_solve_evp_real_2stage_single_precision(int na, int nev, float *a, int lda, float *ev, float *q, int ldq, int nblk,
!c> int elpa_solve_evp_real_2stage_double_precision(int na, int nev, double *a, int lda, double *ev, double *q, int ldq, int nblk,
!lc> int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_REAL_ELPA_KERNEL_API, int useQR, int useGPU);
!c> int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_REAL_ELPA_KERNEL_API, int useQR, int useGPU);
#else
!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,
!c> 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 "../../general/precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa2_c_interface_template.X90"
#include "./elpa2_c_interface_template.X90"
...
@@ -132,43 +122,38 @@
...
@@ -132,43 +122,38 @@
#endif /* WANT_SINGLE_PRECISION_REAL */
#endif /* WANT_SINGLE_PRECISION_REAL */
!c> #include <complex.h>
!
l
c> #include <complex.h>
!c> /*! \brief C interface to solve the double-precision complex eigenvalue problem with 2-stage solver
!
l
c> /*! \brief C interface to solve the double-precision complex eigenvalue problem with 2-stage solver
!c> *
!
l
c> *
!c> * \param na Order of matrix a
!
l
c> * \param na Order of matrix a
!c> * \param nev Number of eigenvalues needed.
!
l
c> * \param nev Number of eigenvalues needed.
!c> * The smallest nev eigenvalues/eigenvectors are calculated.
!
l
c> * The smallest nev eigenvalues/eigenvectors are calculated.
!c> * \param a Distributed matrix for which eigenvalues are to be computed.
!
l
c> * \param a Distributed matrix for which eigenvalues are to be computed.
!c> * Distribution is like in Scalapack.
!
l
c> * Distribution is like in Scalapack.
!c> * The full matrix must be set (not only one half like in scalapack).
!
l
c> * The full matrix must be set (not only one half like in scalapack).
!c> * \param lda Leading dimension of a
!
l
c> * \param lda Leading dimension of a
!c> * \param ev(na) On output: eigenvalues of a, every processor gets the complete set
!
l
c> * \param ev(na) On output: eigenvalues of a, every processor gets the complete set
!c> * \param q On output: Eigenvectors of a
!
l
c> * \param q On output: Eigenvectors of a
!c> * Distribution is like in Scalapack.
!
l
c> * Distribution is like in Scalapack.
!c> * Must be always dimensioned to the full size (corresponding to (na,na))
!
l
c> * Must be always dimensioned to the full size (corresponding to (na,na))
!c> * even if only a part of the eigenvalues is needed.
!
l
c> * even if only a part of the eigenvalues is needed.
!c> * \param ldq Leading dimension of q
!
l
c> * \param ldq Leading dimension of q
!c> * \param nblk blocksize of cyclic distribution, must be the same in both directions!
!
l
c> * \param nblk blocksize of cyclic distribution, must be the same in both directions!
!c> * \param matrixCols distributed number of matrix columns
!
l
c> * \param matrixCols distributed number of matrix columns
!c> * \param mpi_comm_rows MPI-Communicator for rows
!
l
c> * \param mpi_comm_rows MPI-Communicator for rows
!c> * \param mpi_comm_cols MPI-Communicator for columns
!
l
c> * \param mpi_comm_cols MPI-Communicator for columns
!c> * \param mpi_coll_all MPI communicator for the total processor set
!
l
c> * \param mpi_coll_all MPI communicator for the total processor set
!c> * \param THIS_COMPLEX_ELPA_KERNEL_API specify used ELPA2 kernel via API
!
l
c> * \param THIS_COMPLEX_ELPA_KERNEL_API specify used ELPA2 kernel via API
!c> * \param useGPU use GPU (1=yes, 0=No)
!
l
c> * \param useGPU use GPU (1=yes, 0=No)
!c> *
!
l
c> *
!c> * \result int: 1 if error occured, otherwise 0
!
l
c> * \result int: 1 if error occured, otherwise 0
!c> */
!
l
c> */
#define COMPLEXCASE 1
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#define DOUBLE_PRECISION 1
#if DOUBLE_PRECISION == 1
!lc> int elpa_solve_evp_complex_2stage_double_precision(int na, int nev, double complex *a, int lda, double *ev, double complex *q, int ldq,
!c> int elpa_solve_evp_complex_2stage_double_precision(int na, int nev, double complex *a, int lda, double *ev, double complex *q, int ldq,
!lc> int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
!c> int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
#else
!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,
!c> int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
#endif
#include "../../general/precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa2_c_interface_template.X90"
#include "./elpa2_c_interface_template.X90"
...
@@ -177,43 +162,38 @@
...
@@ -177,43 +162,38 @@
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#ifdef WANT_SINGLE_PRECISION_COMPLEX
!c> #include <complex.h>
!
l
c> #include <complex.h>
!c> /*! \brief C interface to solve the single-precision complex eigenvalue problem with 2-stage solver
!
l
c> /*! \brief C interface to solve the single-precision complex eigenvalue problem with 2-stage solver
!c> *
!
l
c> *
!c> * \param na Order of matrix a
!
l
c> * \param na Order of matrix a
!c> * \param nev Number of eigenvalues needed.
!
l
c> * \param nev Number of eigenvalues needed.
!c> * The smallest nev eigenvalues/eigenvectors are calculated.
!
l
c> * The smallest nev eigenvalues/eigenvectors are calculated.
!c> * \param a Distributed matrix for which eigenvalues are to be computed.
!
l
c> * \param a Distributed matrix for which eigenvalues are to be computed.
!c> * Distribution is like in Scalapack.
!
l
c> * Distribution is like in Scalapack.
!c> * The full matrix must be set (not only one half like in scalapack).
!
l
c> * The full matrix must be set (not only one half like in scalapack).
!c> * \param lda Leading dimension of a
!
l
c> * \param lda Leading dimension of a
!c> * \param ev(na) On output: eigenvalues of a, every processor gets the complete set
!
l
c> * \param ev(na) On output: eigenvalues of a, every processor gets the complete set
!c> * \param q On output: Eigenvectors of a
!
l
c> * \param q On output: Eigenvectors of a
!c> * Distribution is like in Scalapack.
!
l
c> * Distribution is like in Scalapack.
!c> * Must be always dimensioned to the full size (corresponding to (na,na))
!
l
c> * Must be always dimensioned to the full size (corresponding to (na,na))
!c> * even if only a part of the eigenvalues is needed.
!
l
c> * even if only a part of the eigenvalues is needed.
!c> * \param ldq Leading dimension of q
!
l
c> * \param ldq Leading dimension of q
!c> * \param nblk blocksize of cyclic distribution, must be the same in both directions!
!
l
c> * \param nblk blocksize of cyclic distribution, must be the same in both directions!
!c> * \param matrixCols distributed number of matrix columns
!
l
c> * \param matrixCols distributed number of matrix columns
!c> * \param mpi_comm_rows MPI-Communicator for rows
!
l
c> * \param mpi_comm_rows MPI-Communicator for rows
!c> * \param mpi_comm_cols MPI-Communicator for columns
!
l
c> * \param mpi_comm_cols MPI-Communicator for columns
!c> * \param mpi_coll_all MPI communicator for the total processor set
!
l
c> * \param mpi_coll_all MPI communicator for the total processor set
!c> * \param THIS_REAL_ELPA_KERNEL_API specify used ELPA2 kernel via API
!
l
c> * \param THIS_REAL_ELPA_KERNEL_API specify used ELPA2 kernel via API
!c> * \param useGPU use GPU (1=yes, 0=No)
!
l
c> * \param useGPU use GPU (1=yes, 0=No)
!c> *
!
l
c> *
!c> * \result int: 1 if error occured, otherwise 0
!
l
c> * \result int: 1 if error occured, otherwise 0
!c> */
!
l
c> */
#define COMPLEXCASE 1
#define COMPLEXCASE 1
#undef DOUBLE_PRECISION
#undef DOUBLE_PRECISION
#define SINGLE_PRECISION 1
#define SINGLE_PRECISION 1
#if DOUBLE_PRECISION == 1
!lc> int elpa_solve_evp_complex_2stage_single_precision(int na, int nev, complex *a, int lda, float *ev, complex *q, int ldq, int nblk,
!c> int elpa_solve_evp_complex_2stage_double_precision(int na, int nev, double complex *a, int lda, double *ev, double complex *q, int ldq,
!lc> int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
!c> int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
#else
!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,
!c> int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
#endif
#include "../../general/precision_macros.h"
#include "../../general/precision_macros.h"
#include "./elpa2_c_interface_template.X90"
#include "./elpa2_c_interface_template.X90"
...
...
src/elpa_driver/legacy_interface/elpa_driver_c_interface.F90
View file @
c88242d4
This diff is collapsed.
Click to expand it.
test/C/elpa1_test_complex_c_version.c
View file @
c88242d4
...
@@ -50,7 +50,7 @@
...
@@ -50,7 +50,7 @@
#endif
#endif
#include <math.h>
#include <math.h>
#include <elpa/elpa.h>
#include <elpa/elpa
_legacy
.h>
#include <test/shared/generated.h>
#include <test/shared/generated.h>
#include <complex.h>
#include <complex.h>
...
...
test/C/elpa1_test_real_c_version.c
View file @
c88242d4
...
@@ -50,7 +50,7 @@
...
@@ -50,7 +50,7 @@
#endif
#endif
#include <math.h>
#include <math.h>
#include <elpa/elpa.h>
#include <elpa/elpa
_legacy
.h>
#include "test/shared/generated.h"
#include "test/shared/generated.h"
...
...
test/C/elpa2_test_complex_c_version.c
View file @
c88242d4
...
@@ -50,7 +50,7 @@
...
@@ -50,7 +50,7 @@
#endif
#endif
#include <math.h>
#include <math.h>
#include <elpa/elpa.h>
#include <elpa/elpa
_legacy
.h>
#include <test/shared/generated.h>
#include <test/shared/generated.h>
#include <complex.h>
#include <complex.h>
...
...
test/C/elpa2_test_real_c_version.c
View file @
c88242d4
...
@@ -50,7 +50,7 @@
...
@@ -50,7 +50,7 @@
#endif
#endif
#include <math.h>
#include <math.h>
#include <elpa/elpa.h>
#include <elpa/elpa
_legacy
.h>
#include <test/shared/generated.h>
#include <test/shared/generated.h>
#define DOUBLE_PRECISION_REAL 1
#define DOUBLE_PRECISION_REAL 1
...
...
test/C/elpa_driver_complex_c_version.c
View file @
c88242d4
...
@@ -50,7 +50,7 @@
...
@@ -50,7 +50,7 @@
#endif
#endif
#include <math.h>
#include <math.h>
#include <elpa/elpa.h>
#include <elpa/elpa
_legacy
.h>
#include <test/shared/generated.h>
#include <test/shared/generated.h>
#include <complex.h>
#include <complex.h>
...
...
test/C/elpa_driver_complex_c_version_single.c
View file @
c88242d4
...
@@ -50,7 +50,7 @@
...
@@ -50,7 +50,7 @@
#endif
#endif
#include <math.h>
#include <math.h>
#include <elpa/elpa.h>
#include <elpa/elpa
_legacy
.h>
#include <test/shared/generated.h>
#include <test/shared/generated.h>
#include <complex.h>
#include <complex.h>
...
...
test/C/elpa_driver_real_c_version.c
View file @
c88242d4
...
@@ -50,7 +50,7 @@
...
@@ -50,7 +50,7 @@
#endif
#endif
#include <math.h>
#include <math.h>
#include <elpa/elpa.h>
#include <elpa/elpa
_legacy
.h>
#include <test/shared/generated.h>
#include <test/shared/generated.h>
int
main
(
int
argc
,
char
**
argv
)
{
int
main
(
int
argc
,
char
**
argv
)
{
...
...
test/C/elpa_driver_real_c_version_single.c
View file @
c88242d4
...
@@ -50,7 +50,7 @@
...
@@ -50,7 +50,7 @@
#endif
#endif
#include <math.h>
#include <math.h>
#include <elpa/elpa.h>
#include <elpa/elpa
_legacy
.h>
#include <test/shared/generated.h>
#include <test/shared/generated.h>
int
main
(
int
argc
,
char
**
argv
)
{
int
main
(
int
argc
,
char
**
argv
)
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment