Commit fe6f28a3 authored by Andreas Marek's avatar Andreas Marek
Browse files

Cleanup and typo

parent 8ac91762
...@@ -179,7 +179,7 @@ program test ...@@ -179,7 +179,7 @@ program test
end if end if
end if end if
#endif #endif
if (myid == 0) then if (myid == 0) then
print '((a,i0))', 'Matrix size: ', na print '((a,i0))', 'Matrix size: ', na
print '((a,i0))', 'Num eigenvectors: ', nev print '((a,i0))', 'Num eigenvectors: ', nev
...@@ -316,7 +316,7 @@ program test ...@@ -316,7 +316,7 @@ program test
if (myid == 0) print *, elpa_int_value_to_string(KERNEL_KEY, kernel), " kernel" if (myid == 0) print *, elpa_int_value_to_string(KERNEL_KEY, kernel), " kernel"
call e%timer_start(elpa_int_value_to_string(KERNEL_KEY, kernel)) call e%timer_start(elpa_int_value_to_string(KERNEL_KEY, kernel))
#else #else /* ALL_KERNELS */
#ifdef __EIGENVECTORS #ifdef __EIGENVECTORS
call e%timer_start("e%eigenvectors()") call e%timer_start("e%eigenvectors()")
...@@ -359,6 +359,7 @@ program test ...@@ -359,6 +359,7 @@ program test
if (myid .eq. 0) then if (myid .eq. 0) then
#ifdef TEST_SOLVER_2STAGE #ifdef TEST_SOLVER_2STAGE
call e%print_times("e%eigenvectors()")
call e%print_times(elpa_int_value_to_string(KERNEL_KEY, kernel)) call e%print_times(elpa_int_value_to_string(KERNEL_KEY, kernel))
#else #else
#ifdef __EIGENVECTORS #ifdef __EIGENVECTORS
...@@ -378,7 +379,7 @@ program test ...@@ -378,7 +379,7 @@ program test
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)
#else #else
status = check_correctness(na, nev, as, z, ev, sc_desc, myid) status = check_correctness(na, nev, as, z, ev, sc_desc, myid)
#endif #endif
if (status /= 0) then if (status /= 0) then
if (myid == 0) print *, "Result incorrect!" if (myid == 0) print *, "Result incorrect!"
call exit(status) call exit(status)
...@@ -398,7 +399,7 @@ program test ...@@ -398,7 +399,7 @@ program test
! sort analytic solution: ! sort analytic solution:
! this hack is neihter elegant, nor optimized: for huge matrixes it might be expensive ! this hack is neither elegant, nor optimized: for huge matrixes it might be expensive
! a proper sorting algorithmus might be implemented here ! a proper sorting algorithmus might be implemented here
tmp = minval(ev_analytic) tmp = minval(ev_analytic)
......
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