mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-24 13:23:41 +01:00
timestamp of first pull
This commit is contained in:
parent
34d9fa0165
commit
0d91b9310a
@ -428,7 +428,8 @@ subroutine dress_collector(zmq_socket_pull, E, relative_error, delta, delta_s2,
|
||||
c = 0
|
||||
S(:) = 0d0
|
||||
S2(:) = 0d0
|
||||
time0 = omp_get_wtime()
|
||||
time = omp_get_wtime()
|
||||
time0 = -1d0 ! omp_get_wtime()
|
||||
more = 1
|
||||
|
||||
do while (.not. found)
|
||||
@ -464,6 +465,10 @@ subroutine dress_collector(zmq_socket_pull, E, relative_error, delta, delta_s2,
|
||||
else
|
||||
do
|
||||
call pull_dress_results(zmq_socket_pull, m_task, f, edI_task, edI_index, breve_delta_m, task_id, n_tasks)
|
||||
if(time0 == -1d0) then
|
||||
print *, "first pull", omp_get_wtime()-time
|
||||
time0 = omp_get_wtime()
|
||||
end if
|
||||
if(m_task == 0) then
|
||||
if (zmq_delete_tasks(zmq_to_qp_run_socket,zmq_socket_pull,task_id,n_tasks,more) == -1) then
|
||||
stop 'Unable to delete tasks'
|
||||
|
@ -91,6 +91,10 @@ double precision :: time, time0
|
||||
allocate(task_buf(pt2_n_tasks_max))
|
||||
ntask_buf = 0
|
||||
|
||||
if(iproc==1) then
|
||||
call push_dress_results(zmq_socket_push, 0, 0, edI_task, edI_index, breve_delta_m, task_buf, ntask_buf)
|
||||
end if
|
||||
|
||||
do while(cp_done > cp_sent .or. m /= dress_N_cp+1)
|
||||
call omp_set_lock(getting_task)
|
||||
if(ntask_tbd == 0) then
|
||||
|
Loading…
Reference in New Issue
Block a user