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

Cleanup and typo

parent 8ac91762
......@@ -316,7 +316,7 @@ program test
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))
#else
#else /* ALL_KERNELS */
#ifdef __EIGENVECTORS
call e%timer_start("e%eigenvectors()")
......@@ -359,6 +359,7 @@ program test
if (myid .eq. 0) then
#ifdef TEST_SOLVER_2STAGE
call e%print_times("e%eigenvectors()")
call e%print_times(elpa_int_value_to_string(KERNEL_KEY, kernel))
#else
#ifdef __EIGENVECTORS
......@@ -398,7 +399,7 @@ program test
! 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
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