checking only part of eigenvalues for scalapack p???evr

unlike elpa 2stage, scalapack computes only part of eigenvalues
if only part of eigenvectors are required. Check only those.

test/Fortran/test.F90

@@ -143,6 +143,8 @@ program test
    ! eigenvalues
    EV_TYPE, allocatable        :: ev(:), ev_analytic(:)
 
+   logical                     :: check_all_evals
+
 #if defined(TEST_EIGENVALUES) || defined(TEST_SOLVE_TRIDIAGONAL) || defined(TEST_EIGENVECTORS) || defined(TEST_QR_DECOMPOSITION) || defined(TEST_HERMITIAN_MULTIPLY)
    EV_TYPE, allocatable        :: d(:), sd(:), ds(:), sds(:)
    EV_TYPE                     :: diagonalELement, subdiagonalElement
@@ -187,7 +189,7 @@ program test
 #endif
 #endif
 
-
+   check_all_evals = .true.
 
    if (elpa_init(CURRENT_API_VERSION) /= ELPA_OK) then
      print *, "ELPA API version not supported"
@@ -436,6 +438,7 @@ program test
      call solve_scalapack_all(na, a, sc_desc, ev, z)
 #elif TEST_SCALAPACK_PART
      call solve_scalapack_part(na, a, sc_desc, nev, ev, z)
+     check_all_evals = .false. ! scalapack does not compute all eigenvectors
 #else
      call e%eigenvectors(a, ev, z, error)
 #endif
@@ -498,7 +501,7 @@ program test
 
 #if defined(TEST_EIGENVECTORS) || defined(TEST_QR_DECOMPOSITION)
 #ifdef TEST_MATRIX_ANALYTIC
-     status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
+     status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol, check_all_evals)
 #else
      if (nev .ge. 1) then
        status = check_correctness(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows,np_cols, my_prow, my_pcol)

test/shared/test_analytic_template.F90

@@ -85,13 +85,14 @@
     &MATH_DATATYPE&
     &_&
     &PRECISION&
-    &(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol) result(status)
+    &(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol, check_all_evals) result(status)
     implicit none
 #include "../../src/general/precision_kinds.F90"
     integer(kind=ik), intent(in)    :: na, nev, nblk, myid, np_rows, np_cols, my_prow, my_pcol
     integer(kind=ik)                :: status, mpierr
     MATH_DATATYPE(kind=rck), intent(inout)   :: z(:,:)
     real(kind=rk), intent(inout)   :: ev(:)
+    logical, intent(in)            :: check_all_evals
 
     integer(kind=ik) :: globI, globJ, locI, locJ, levels(num_primes)
     real(kind=rk)   :: diff, max_z_diff, max_ev_diff, glob_max_z_diff, max_curr_z_diff 
@@ -109,7 +110,7 @@
     MATH_DATATYPE(kind=rck)   :: computed_z,  expected_z
 
     MATH_DATATYPE(kind=rck)   :: max_value_for_normalization, computed_z_on_max_position, normalization_quotient
-    integer(kind=ik)          :: max_value_idx, rank_with_max, rank_with_max_reduced
+    integer(kind=ik)          :: max_value_idx, rank_with_max, rank_with_max_reduced, num_checked_evals
 
 
     if(.not. decompose(na, levels)) then
@@ -117,10 +118,15 @@
       stop 1
     end if
 
+    if(check_all_evals) then
+        num_checked_evals = na
+    else
+        num_checked_evals = nev
+    endif
     !call print_matrix(myid, na, z, "z")
     max_z_diff = 0.0_rk
     max_ev_diff = 0.0_rk
-    do globJ = 1, na
+    do globJ = 1, num_checked_evals
       computed_ev = ev(globJ)
       expected_ev = analytic_eigenvalues_real_&
               &PRECISION&

test/shared/test_scalapack_template.F90

@@ -41,7 +41,7 @@
 !    any derivatives of ELPA under the same license that we chose for
 !    the original distribution, the GNU Lesser General Public License.
 
-  ! compute all eigenvectores
+  ! compute all eigenvectors
   subroutine solve_p&
       &BLAS_CHAR_AND_SY_OR_HE&
       &evd(na, a, sc_desc, ev, z)
@@ -97,7 +97,7 @@
   end subroutine
 
 
-  ! compute part of eigenvectores
+  ! compute part of eigenvectors
   subroutine solve_p&
       &BLAS_CHAR_AND_SY_OR_HE&
       &evr(na, a, sc_desc, nev, ev, z)