Skip to content

GitLab

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

Single complex in C should be complex float

parent 1e2e9430
Hide whitespace changes
Inline Side-by-side
src/elpa2/legacy_interface/elpa_2stage_c_interface.F90
View file @ eba83535
......@@ -192,7 +192,7 @@
#define COMPLEXCASE 1
#undef DOUBLE_PRECISION
#define SINGLE_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,
!lc> int elpa_solve_evp_complex_2stage_single_precision(int na, int nev, complex float *a, int lda, float *ev, complex float *q, int ldq, int nblk,
!lc> int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU);
#include "../../general/precision_macros.h"
......
src/elpa_driver/legacy_interface/elpa_driver_c_interface.F90
View file @ eba83535
......@@ -198,7 +198,7 @@
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#undef DOUBLE_PRECISION
!lc> int elpa_solve_evp_complex_single(int na, int nev, complex *a, int lda, float *ev, complex *q, int ldq, int nblk, int matrixCols,
!lc> int elpa_solve_evp_complex_single(int na, int nev, complex float *a, int lda, float *ev, complex float *q, int ldq, int nblk, int matrixCols,
!lc> int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int THIS_COMPLEX_ELPA_KERNEL_API, int useGPU, char *method);
#include "../../general/precision_macros.h"
#include "./elpa_driver_c_interface_template.X90"
......
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