Commit 166a8a66 authored by Pavel Kus's avatar Pavel Kus

adding barrier to the multple objects test

to avoid stalling between storing and loading parameters
parent ec1e7391
...@@ -200,6 +200,11 @@ program test ...@@ -200,6 +200,11 @@ program test
call e1%store_settings("initial_parameters.txt", error) call e1%store_settings("initial_parameters.txt", error)
assert_elpa_ok(error) assert_elpa_ok(error)
#ifdef WITH_MPI
! barrier after store settings, file created from one MPI rank only, but loaded everywhere
call MPI_BARRIER(MPI_COMM_WORLD, ierr)
#endif
! try to load parameters into another object ! try to load parameters into another object
e2 => elpa_allocate(error) e2 => elpa_allocate(error)
assert_elpa_ok(error) assert_elpa_ok(error)
...@@ -270,6 +275,7 @@ program test ...@@ -270,6 +275,7 @@ program test
call e_ptr%autotune_save_state(tune_state, "saved_state_"//trim(iter_string)//".txt", error) call e_ptr%autotune_save_state(tune_state, "saved_state_"//trim(iter_string)//".txt", error)
assert_elpa_ok(error) assert_elpa_ok(error)
#ifdef WITH_MPI #ifdef WITH_MPI
! barrier after save state, file created from one MPI rank only, but loaded everywhere
call MPI_BARRIER(MPI_COMM_WORLD, ierr) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
#endif #endif
call e_ptr%autotune_load_state(tune_state, "saved_state_"//trim(iter_string)//".txt", error) call e_ptr%autotune_load_state(tune_state, "saved_state_"//trim(iter_string)//".txt", error)
......
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