Commit 09f4ef2f authored by Pavel Kus's avatar Pavel Kus

adding several is_valid functions for autotuning

parent 5bf76fbb
This diff is collapsed.
......@@ -218,29 +218,38 @@ program test
call e%timer_stop("eigenvectors: iteration "//trim(iter_string))
assert_elpa_ok(error)
status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol, &
.true., .true., print_times=.false.)
a(:,:) = as(:,:)
if (myid .eq. 0) then
print *, ""
call e%print_times("eigenvectors: iteration "//trim(iter_string))
endif
status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol, &
.true., .true., print_times=.false.)
a(:,:) = as(:,:)
end do
! set and print the autotuned-settings
call e%autotune_set_best(tune_state)
if (myid .eq. 0) then
print *, "The best combination found by the autotuning:"
call e%autotune_print_best(tune_state)
endif
! de-allocate autotune object
call elpa_autotune_deallocate(tune_state)
if (myid .eq. 0) then
print *, "Running once more time with the best found setting..."
endif
call e%timer_start("eigenvectors: best setting")
call e%eigenvectors(a, ev, z, error)
call e%timer_stop("eigenvectors: best setting")
assert_elpa_ok(error)
if (myid .eq. 0) then
print *, ""
call e%print_times("eigenvectors: best setting")
endif
status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol, &
.true., .true., print_times=.false.)
call elpa_deallocate(e)
deallocate(a)
......
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