From 3fec30e4d8c34602adc356c00776e05e721cf42a Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sat, 30 Jan 2021 00:30:44 +0100 Subject: [PATCH] Fixed zmq --- 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 07e3a88f..917bd4aa 100644 --- a/src/zmq/utils.irp.f +++ b/src/zmq/utils.irp.f @@ -1226,8 +1226,8 @@ integer function zmq_delete_tasks_async_recv(zmq_to_qp_run_socket,more,sending) integer :: rc character*(64) :: reply - if (.not.sending) return zmq_delete_tasks_async_recv = 0 + if (.not.sending) return reply = '' rc = f77_zmq_recv(zmq_to_qp_run_socket,reply,64,0)