Forgot the updated C test programs

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)
 

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) {

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");