From f182626685d5937ede71e75106652eea13cedc31 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 23 Apr 2020 23:18:12 +0200
Subject: [PATCH] Fixed Forcing kill message

---
 src/zmq/utils.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ..'