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

Rename check_correctness function

parent 5748ad54
...@@ -274,7 +274,7 @@ int main(int argc, char** argv) { ...@@ -274,7 +274,7 @@ int main(int argc, char** argv) {
} }
/* check the results */ /* 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){ if (status !=0){
printf("The computed EVs are not correct !\n"); printf("The computed EVs are not correct !\n");
......
...@@ -278,7 +278,7 @@ int main(int argc, char** argv) { ...@@ -278,7 +278,7 @@ int main(int argc, char** argv) {
/* check the results */ /* 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){ if (status !=0){
printf("The computed EVs are not correct !\n"); printf("The computed EVs are not correct !\n");
......
...@@ -274,7 +274,7 @@ int main(int argc, char** argv) { ...@@ -274,7 +274,7 @@ int main(int argc, char** argv) {
} }
/* check the results */ /* 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){ if (status !=0){
printf("The computed EVs are not correct !\n"); printf("The computed EVs are not correct !\n");
......
...@@ -277,7 +277,7 @@ int main(int argc, char** argv) { ...@@ -277,7 +277,7 @@ int main(int argc, char** argv) {
} }
/* check the results */ /* 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){ if (status !=0){
printf("The computed EVs are not correct !\n"); printf("The computed EVs are not correct !\n");
......
...@@ -241,9 +241,9 @@ int main(int argc, char** argv) { ...@@ -241,9 +241,9 @@ int main(int argc, char** argv) {
/* check the results */ /* check the results */
#ifdef DOUBLE_PRECISION_COMPLEX #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 #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 #endif
if (status !=0){ if (status !=0){
......
...@@ -233,9 +233,9 @@ int main(int argc, char** argv) { ...@@ -233,9 +233,9 @@ int main(int argc, char** argv) {
#ifdef DOUBLE_PRECISION_REAL #ifdef DOUBLE_PRECISION_REAL
/* check the results */ /* 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 #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 #endif
if (status !=0){ if (status !=0){
printf("The computed EVs are not correct !\n"); printf("The computed EVs are not correct !\n");
......
...@@ -236,9 +236,9 @@ int main(int argc, char** argv) { ...@@ -236,9 +236,9 @@ int main(int argc, char** argv) {
/* check the results */ /* check the results */
#ifdef DOUBLE_PRECISION_COMPLEX #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 #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 #endif
if (status !=0){ if (status !=0){
printf("The computed EVs are not correct !\n"); printf("The computed EVs are not correct !\n");
......
...@@ -230,9 +230,9 @@ int main(int argc, char** argv) { ...@@ -230,9 +230,9 @@ int main(int argc, char** argv) {
/* check the results */ /* check the results */
#ifdef DOUBLE_PRECISION_REAL #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 #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 #endif
if (status !=0){ if (status !=0){
......
...@@ -323,7 +323,7 @@ program test_complex2 ...@@ -323,7 +323,7 @@ program test_complex2
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -315,7 +315,7 @@ program test_real2 ...@@ -315,7 +315,7 @@ program test_real2
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -323,7 +323,7 @@ program test_complex2 ...@@ -323,7 +323,7 @@ program test_complex2
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -314,7 +314,7 @@ program test_real2 ...@@ -314,7 +314,7 @@ program test_real2
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -271,7 +271,7 @@ program test_complex_double_precision ...@@ -271,7 +271,7 @@ program test_complex_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -270,7 +270,7 @@ program test_complex_gpu_version_double_precision ...@@ -270,7 +270,7 @@ program test_complex_gpu_version_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -264,7 +264,7 @@ program test_real_double_precision ...@@ -264,7 +264,7 @@ program test_real_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -264,7 +264,7 @@ program test_real_gpu_version_double_precision ...@@ -264,7 +264,7 @@ program test_real_gpu_version_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -270,7 +270,7 @@ program test_complex_single_precision ...@@ -270,7 +270,7 @@ program test_complex_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -270,7 +270,7 @@ program test_complex_gpu_version_single_precision ...@@ -270,7 +270,7 @@ program test_complex_gpu_version_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -263,7 +263,7 @@ program test_real_single_precision ...@@ -263,7 +263,7 @@ program test_real_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -264,7 +264,7 @@ program test_real_gpu_version_single_precision ...@@ -264,7 +264,7 @@ program test_real_gpu_version_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -326,7 +326,7 @@ program test_solve_tridi_single ...@@ -326,7 +326,7 @@ program test_solve_tridi_single
endif endif
! Test correctness of result (using plain scalapack routines) ! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, a, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol) status = check_correctness_evp_numeric_residuals(na, nev, as, a, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a) deallocate(a)
deallocate(as) deallocate(as)
......
...@@ -327,7 +327,7 @@ program test_solve_tridi ...@@ -327,7 +327,7 @@ program test_solve_tridi
endif endif
! Test correctness of result (using plain scalapack routines) ! Test correctness of result (using plain scalapack routines)
status = check_correctness(na, nev, as, a, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol) status = check_correctness_evp_numeric_residuals(na, nev, as, a, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a) deallocate(a)
......
...@@ -253,7 +253,7 @@ program test_complex2_double_banded ...@@ -253,7 +253,7 @@ program test_complex2_double_banded
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -193,14 +193,14 @@ program test_interface ...@@ -193,14 +193,14 @@ program test_interface
call elpa_deallocate(e2) call elpa_deallocate(e2)
call elpa_uninit() call elpa_uninit()
status = check_correctness(na, nev, as1, z1, ev1, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol) status = check_correctness_evp_numeric_residuals(na, nev, as1, z1, ev1, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a1) deallocate(a1)
deallocate(as1) deallocate(as1)
deallocate(z1) deallocate(z1)
deallocate(ev1) deallocate(ev1)
status = check_correctness(na, nev, as2, z2, ev2, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol) status = check_correctness_evp_numeric_residuals(na, nev, as2, z2, ev2, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
deallocate(a2) deallocate(a2)
deallocate(as2) deallocate(as2)
......
...@@ -265,7 +265,7 @@ program test_complex2_double_precision ...@@ -265,7 +265,7 @@ program test_complex2_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -397,7 +397,7 @@ program test_complex2_choose_kernel_with_api_double_precision ...@@ -397,7 +397,7 @@ program test_complex2_choose_kernel_with_api_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -293,7 +293,7 @@ program test_complex2_default_kernel_double_precision ...@@ -293,7 +293,7 @@ program test_complex2_default_kernel_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -292,7 +292,7 @@ program test_complex2_gpu_version_double_precision ...@@ -292,7 +292,7 @@ program test_complex2_gpu_version_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -270,7 +270,7 @@ program test_real2_double_precision ...@@ -270,7 +270,7 @@ program test_real2_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -432,7 +432,7 @@ program test_real2_choose_kernel_with_api_double_precision ...@@ -432,7 +432,7 @@ program test_real2_choose_kernel_with_api_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -290,7 +290,7 @@ program test_real2_default_kernel_double_precision ...@@ -290,7 +290,7 @@ program test_real2_default_kernel_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -291,7 +291,7 @@ program test_real2_gpu_version_double_precision ...@@ -291,7 +291,7 @@ program test_real2_gpu_version_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -334,7 +334,7 @@ program test_real2_default_kernel_qr_decomposition_double_precision ...@@ -334,7 +334,7 @@ program test_real2_default_kernel_qr_decomposition_double_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! Test correctness of result (using plain scalapack routines)
ret = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol) ret = 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(a)
deallocate(as) deallocate(as)
......
...@@ -264,7 +264,7 @@ program test_complex2_single_precision ...@@ -264,7 +264,7 @@ program test_complex2_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -397,7 +397,7 @@ program test_complex2_choose_kernel_with_api_single_precision ...@@ -397,7 +397,7 @@ program test_complex2_choose_kernel_with_api_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -290,7 +290,7 @@ program test_complex2_default_kernel_single_precision ...@@ -290,7 +290,7 @@ program test_complex2_default_kernel_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -289,7 +289,7 @@ program test_complex2_gpu_version_single_precision ...@@ -289,7 +289,7 @@ program test_complex2_gpu_version_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -269,7 +269,7 @@ program test_real2_single_precision ...@@ -269,7 +269,7 @@ program test_real2_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -428,7 +428,7 @@ program test_real2_choose_kernel_with_api_single_precision ...@@ -428,7 +428,7 @@ program test_real2_choose_kernel_with_api_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Test correctness of result (using plain scalapack routines) ! 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(a)
deallocate(as) deallocate(as)
......
...@@ -289,7 +289,7 @@ program test_real2_default_kernel_single_precision ...@@ -289,7 +289,7 @@ program test_real2_default_kernel_single_precision
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------