From 4cbe7d33a2d4adbd3a0db61ea2b7feb0015f5b12 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 29 Mar 2018 10:31:35 +0200
Subject: [PATCH] debug

---
 src/ZMQ/utils.irp.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ZMQ/utils.irp.f b/src/ZMQ/utils.irp.f
index 804df09f..fac7470c 100644
--- a/src/ZMQ/utils.irp.f
+++ b/src/ZMQ/utils.irp.f
@@ -785,13 +785,14 @@ integer function zmq_abort(zmq_to_qp_run_socket)
   sze = len(trim(message))
   rc = f77_zmq_send(zmq_to_qp_run_socket, trim(message), sze, 0)
   if (rc /= sze) then
+    print *,  'zmq_abort: rc /= sze', rc, sze
     zmq_abort = -1
     return
   endif
   
   rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 510, 0)
   if (trim(message(1:rc)) /= 'ok') then
-    print *,  'zmq_abort: '//trim(message(1:rc))
+    print *,  'zmq_abort: ', rc, ':', trim(message(1:rc))
     zmq_abort = -1
     return
   endif