diff --git a/src/zmq/utils.irp.f b/src/zmq/utils.irp.f index 6b7aad7f..287a6024 100644 --- a/src/zmq/utils.irp.f +++ b/src/zmq/utils.irp.f @@ -589,11 +589,11 @@ subroutine end_parallel_job(zmq_to_qp_run_socket,zmq_socket_pull,name_in) rc = f77_zmq_send(zmq_to_qp_run_socket, 'end_job '//trim(zmq_state),8+len(trim(zmq_state)),0) rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 512, 0) if (trim(message(1:13)) == 'error waiting') then + call sleep(1) cycle else if (message(1:2) == 'ok') then exit endif - call sleep(1) end do if (i==0) then print *, '.. Forcing kill ..'