10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-18 11:15:33 +02:00

Fixing large parallel runs

This commit is contained in:
Anthony Scemama 2019-01-26 10:34:22 +01:00
parent 32d0d5eb1c
commit 263b724e1a

View File

@ -72,13 +72,6 @@ subroutine davidson_run_slave(thread,iproc)
endif
enddo
do
if (zmq_get_N_states_diag(zmq_to_qp_run_socket, 1) /= -1) then
exit
endif
print *, irp_here, ': Waiting for N_states_diag'
call sleep(1)
enddo
call davidson_slave_work(zmq_to_qp_run_socket, zmq_socket_push, N_states_diag, N_det, worker_id)
integer, external :: disconnect_from_taskserver