Commit 1df480c8 authored by Andreas Marek's avatar Andreas Marek

Forgot the updated C test programs

parent cd194827
...@@ -94,7 +94,7 @@ use elpa2 ...@@ -94,7 +94,7 @@ use elpa2
.br .br
.RI "int \fBuseGPU\fP: decide whether GPUs should be used or not" .RI "int \fBuseGPU\fP: decide whether GPUs should be used or not"
.br .br
.RI "int \fBbandwidth\fP: bandwidth of an already banded matrix (-1 = matrix not banded)" .RI "int \fBbandwidth\fP: bandwidth of an already banded matrix (-1 = matrix is not banded)"
.br .br
.RI "int \fBsuccess\fP: return value indicating success (1) or failure (0) .RI "int \fBsuccess\fP: return value indicating success (1) or failure (0)
......
...@@ -92,7 +92,8 @@ int main(int argc, char** argv) { ...@@ -92,7 +92,8 @@ int main(int argc, char** argv) {
int success; int success;
int THIS_COMPLEX_ELPA_KERNEL_API, useGPU; int THIS_COMPLEX_ELPA_KERNEL_API, useGPU, bandwidth;
#ifdef WITH_MPI #ifdef WITH_MPI
MPI_Init(&argc, &argv); MPI_Init(&argc, &argv);
MPI_Comm_size(MPI_COMM_WORLD, &nprocs); MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
...@@ -230,11 +231,12 @@ int main(int argc, char** argv) { ...@@ -230,11 +231,12 @@ int main(int argc, char** argv) {
mpierr = MPI_Barrier(MPI_COMM_WORLD); mpierr = MPI_Barrier(MPI_COMM_WORLD);
#endif #endif
useGPU = 0; useGPU = 0;
bandwidth = -1;
THIS_COMPLEX_ELPA_KERNEL_API = ELPA2_COMPLEX_KERNEL_GENERIC; THIS_COMPLEX_ELPA_KERNEL_API = ELPA2_COMPLEX_KERNEL_GENERIC;
#ifdef DOUBLE_PRECISION_COMPLEX #ifdef DOUBLE_PRECISION_COMPLEX
success = elpa_solve_evp_complex_2stage_double_precision(na, nev, a, na_rows, ev, z, na_rows, nblk, na_cols, mpi_comm_rows, mpi_comm_cols, my_mpi_comm_world, THIS_COMPLEX_ELPA_KERNEL_API, useGPU); success = elpa_solve_evp_complex_2stage_double_precision(na, nev, a, na_rows, ev, z, na_rows, nblk, na_cols, mpi_comm_rows, mpi_comm_cols, my_mpi_comm_world, THIS_COMPLEX_ELPA_KERNEL_API, useGPU, bandwidth);
#else #else
success = elpa_solve_evp_complex_2stage_single_precision(na, nev, a, na_rows, ev, z, na_rows, nblk, na_cols, mpi_comm_rows, mpi_comm_cols, my_mpi_comm_world, THIS_COMPLEX_ELPA_KERNEL_API, useGPU); success = elpa_solve_evp_complex_2stage_single_precision(na, nev, a, na_rows, ev, z, na_rows, nblk, na_cols, mpi_comm_rows, mpi_comm_cols, my_mpi_comm_world, THIS_COMPLEX_ELPA_KERNEL_API, useGPU, bandwidth);
#endif #endif
if (success != 1) { if (success != 1) {
......
...@@ -87,7 +87,8 @@ int main(int argc, char** argv) { ...@@ -87,7 +87,8 @@ int main(int argc, char** argv) {
int success; int success;
int useQr, THIS_REAL_ELPA_KERNEL_API, useGPU; int useQr, THIS_REAL_ELPA_KERNEL_API, useGPU, bandwidth;
#ifdef WITH_MPI #ifdef WITH_MPI
MPI_Init(&argc, &argv); MPI_Init(&argc, &argv);
MPI_Comm_size(MPI_COMM_WORLD, &nprocs); MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
...@@ -217,11 +218,12 @@ int main(int argc, char** argv) { ...@@ -217,11 +218,12 @@ int main(int argc, char** argv) {
#endif #endif
useGPU =0 ; useGPU =0 ;
useQr = 0; useQr = 0;
bandwidth = -1;
THIS_REAL_ELPA_KERNEL_API = ELPA2_REAL_KERNEL_GENERIC; THIS_REAL_ELPA_KERNEL_API = ELPA2_REAL_KERNEL_GENERIC;
#ifdef DOUBLE_PRECISION_REAL #ifdef DOUBLE_PRECISION_REAL
success = elpa_solve_evp_real_2stage_double_precision(na, nev, a, na_rows, ev, z, na_rows, nblk, na_cols, mpi_comm_rows, mpi_comm_cols, my_mpi_comm_world, THIS_REAL_ELPA_KERNEL_API, useQr, useGPU); success = elpa_solve_evp_real_2stage_double_precision(na, nev, a, na_rows, ev, z, na_rows, nblk, na_cols, mpi_comm_rows, mpi_comm_cols, my_mpi_comm_world, THIS_REAL_ELPA_KERNEL_API, useQr, useGPU, bandwidth);
#else #else
success = elpa_solve_evp_real_2stage_single_precision(na, nev, a, na_rows, ev, z, na_rows, nblk, na_cols, mpi_comm_rows, mpi_comm_cols, my_mpi_comm_world, THIS_REAL_ELPA_KERNEL_API, useQr, useGPU); success = elpa_solve_evp_real_2stage_single_precision(na, nev, a, na_rows, ev, z, na_rows, nblk, na_cols, mpi_comm_rows, mpi_comm_cols, my_mpi_comm_world, THIS_REAL_ELPA_KERNEL_API, useQr, useGPU, bandwidth);
#endif #endif
if (success != 1) { if (success != 1) {
printf("error in ELPA solve \n"); printf("error in ELPA solve \n");
......
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