From 203876a0d687e09aeee3815e0d94bd5fcf766b4c Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 31 Oct 2016 19:44:30 +0100 Subject: [PATCH] Removed useless unbind --- src/ZMQ/utils.irp.f | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/ZMQ/utils.irp.f b/src/ZMQ/utils.irp.f index b2b5b7b4..3177d3e3 100644 --- a/src/ZMQ/utils.irp.f +++ b/src/ZMQ/utils.irp.f @@ -426,7 +426,6 @@ subroutine end_zmq_pair_socket(zmq_socket_pair) integer :: rc character*(8), external :: zmq_port - rc = f77_zmq_unbind(zmq_socket_pair,zmq_socket_pair_inproc_address) rc = f77_zmq_close(zmq_socket_pair) if (rc /= 0) then print *, 'f77_zmq_close(zmq_socket_pair)' @@ -445,8 +444,6 @@ subroutine end_zmq_pull_socket(zmq_socket_pull) integer :: rc character*(8), external :: zmq_port - rc = f77_zmq_unbind(zmq_socket_pull,zmq_socket_pull_inproc_address) - rc = f77_zmq_unbind(zmq_socket_pull,zmq_socket_pull_tcp_address) rc = f77_zmq_close(zmq_socket_pull) if (rc /= 0) then print *, 'f77_zmq_close(zmq_socket_pull)'