From e00a6316413e7a50d2c38589ebef4db843f5aa4b Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 10 Apr 2017 16:25:45 +0200 Subject: [PATCH] Delay in zmq --- src/ZMQ/utils.irp.f | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/ZMQ/utils.irp.f b/src/ZMQ/utils.irp.f index 3a7fd25d..106311b0 100644 --- a/src/ZMQ/utils.irp.f +++ b/src/ZMQ/utils.irp.f @@ -407,6 +407,7 @@ subroutine end_zmq_sub_socket(zmq_socket_sub) integer(ZMQ_PTR), intent(in) :: zmq_socket_sub integer :: rc + PROVIDE zmq_context call omp_set_lock(zmq_lock) rc = f77_zmq_close(zmq_socket_sub) call omp_unset_lock(zmq_lock) @@ -428,6 +429,7 @@ subroutine end_zmq_pair_socket(zmq_socket_pair) integer :: rc character*(8), external :: zmq_port + PROVIDE zmq_context call omp_set_lock(zmq_lock) rc = f77_zmq_close(zmq_socket_pair) call omp_unset_lock(zmq_lock) @@ -448,6 +450,7 @@ subroutine end_zmq_pull_socket(zmq_socket_pull) integer :: rc character*(8), external :: zmq_port + PROVIDE zmq_context call omp_set_lock(zmq_lock) rc = f77_zmq_close(zmq_socket_pull) call omp_unset_lock(zmq_lock) @@ -475,6 +478,7 @@ subroutine end_zmq_push_socket(zmq_socket_push,thread) stop 'Unable to set ZMQ_LINGER on push socket' endif + PROVIDE zmq_context call omp_set_lock(zmq_lock) rc = f77_zmq_close(zmq_socket_push) call omp_unset_lock(zmq_lock)