From 1df480c8d7aaa06e97f9fa592c00039d7c335807 Mon Sep 17 00:00:00 2001 From: Andreas Marek Date: Wed, 15 Feb 2017 08:44:27 +0100 Subject: [PATCH] Forgot the updated C test programs --- man/elpa_solve_evp_real_2stage_double.3 | 2 +- test/C/elpa2_test_complex_c_version.c | 8 +++++--- test/C/elpa2_test_real_c_version.c | 8 +++++--- 3 files changed, 11 insertions(+), 7 deletions(-) diff --git a/man/elpa_solve_evp_real_2stage_double.3 b/man/elpa_solve_evp_real_2stage_double.3 index 86ad57cf..2f5251b1 100644 --- a/man/elpa_solve_evp_real_2stage_double.3 +++ b/man/elpa_solve_evp_real_2stage_double.3 @@ -94,7 +94,7 @@ use elpa2 .br .RI "int \fBuseGPU\fP: decide whether GPUs should be used or not" .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 .RI "int \fBsuccess\fP: return value indicating success (1) or failure (0) diff --git a/test/C/elpa2_test_complex_c_version.c b/test/C/elpa2_test_complex_c_version.c index 9828e917..dc248d0d 100644 --- a/test/C/elpa2_test_complex_c_version.c +++ b/test/C/elpa2_test_complex_c_version.c @@ -92,7 +92,8 @@ int main(int argc, char** argv) { int success; - int THIS_COMPLEX_ELPA_KERNEL_API, useGPU; + int THIS_COMPLEX_ELPA_KERNEL_API, useGPU, bandwidth; + #ifdef WITH_MPI MPI_Init(&argc, &argv); MPI_Comm_size(MPI_COMM_WORLD, &nprocs); @@ -230,11 +231,12 @@ int main(int argc, char** argv) { mpierr = MPI_Barrier(MPI_COMM_WORLD); #endif useGPU = 0; + bandwidth = -1; THIS_COMPLEX_ELPA_KERNEL_API = ELPA2_COMPLEX_KERNEL_GENERIC; #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 - 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 if (success != 1) { diff --git a/test/C/elpa2_test_real_c_version.c b/test/C/elpa2_test_real_c_version.c index 1308e42e..2ac1c135 100644 --- a/test/C/elpa2_test_real_c_version.c +++ b/test/C/elpa2_test_real_c_version.c @@ -87,7 +87,8 @@ int main(int argc, char** argv) { int success; - int useQr, THIS_REAL_ELPA_KERNEL_API, useGPU; + int useQr, THIS_REAL_ELPA_KERNEL_API, useGPU, bandwidth; + #ifdef WITH_MPI MPI_Init(&argc, &argv); MPI_Comm_size(MPI_COMM_WORLD, &nprocs); @@ -217,11 +218,12 @@ int main(int argc, char** argv) { #endif useGPU =0 ; useQr = 0; + bandwidth = -1; THIS_REAL_ELPA_KERNEL_API = ELPA2_REAL_KERNEL_GENERIC; #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 - 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 if (success != 1) { printf("error in ELPA solve \n"); -- GitLab