Commit 3ed184fd authored by Andreas Marek's avatar Andreas Marek
Browse files

Rename check_correctness function

parent 5748ad54
......@@ -274,7 +274,7 @@ int main(int argc, char** argv) {
}
/* check the results */
status = check_correctness_complex_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_complex_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
if (status !=0){
printf("The computed EVs are not correct !\n");
......
......@@ -278,7 +278,7 @@ int main(int argc, char** argv) {
/* check the results */
status = check_correctness_real_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_real_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
if (status !=0){
printf("The computed EVs are not correct !\n");
......
......@@ -274,7 +274,7 @@ int main(int argc, char** argv) {
}
/* check the results */
status = check_correctness_complex_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_complex_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
if (status !=0){
printf("The computed EVs are not correct !\n");
......
......@@ -277,7 +277,7 @@ int main(int argc, char** argv) {
}
/* check the results */
status = check_correctness_real_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_real_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
if (status !=0){
printf("The computed EVs are not correct !\n");
......
......@@ -241,9 +241,9 @@ int main(int argc, char** argv) {
/* check the results */
#ifdef DOUBLE_PRECISION_COMPLEX
status = check_correctness_complex_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_complex_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
#else
status = check_correctness_complex_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_complex_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
#endif
if (status !=0){
......
......@@ -233,9 +233,9 @@ int main(int argc, char** argv) {
#ifdef DOUBLE_PRECISION_REAL
/* check the results */
status = check_correctness_real_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_real_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
#else
status = check_correctness_real_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_real_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
#endif
if (status !=0){
printf("The computed EVs are not correct !\n");
......
......@@ -236,9 +236,9 @@ int main(int argc, char** argv) {
/* check the results */
#ifdef DOUBLE_PRECISION_COMPLEX
status = check_correctness_complex_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_complex_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
#else
status = check_correctness_complex_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_complex_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
#endif
if (status !=0){
printf("The computed EVs are not correct !\n");
......
......@@ -230,9 +230,9 @@ int main(int argc, char** argv) {
/* check the results */
#ifdef DOUBLE_PRECISION_REAL
status = check_correctness_real_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_real_double_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
#else
status = check_correctness_real_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
status = check_correctness_evp_numeric_residuals_real_single_f(na, nev, na_rows, na_cols, as, z, ev, sc_desc, myid);
#endif
if (status !=0){
......
......@@ -323,7 +323,7 @@ program test_complex2
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -315,7 +315,7 @@ program test_real2
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -323,7 +323,7 @@ program test_complex2
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -314,7 +314,7 @@ program test_real2
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -271,7 +271,7 @@ program test_complex_double_precision
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -270,7 +270,7 @@ program test_complex_gpu_version_double_precision
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -264,7 +264,7 @@ program test_real_double_precision
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -264,7 +264,7 @@ program test_real_gpu_version_double_precision
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -270,7 +270,7 @@ program test_complex_single_precision
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -270,7 +270,7 @@ program test_complex_gpu_version_single_precision
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -263,7 +263,7 @@ program test_real_single_precision
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
......@@ -264,7 +264,7 @@ program test_real_gpu_version_single_precision
!-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
status = check_correctness_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a)
deallocate(as)
......
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