LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-25 22:52:15 +02:00
Code Issues Releases Wiki Activity

Fixed binding bug

Browse Source
This commit is contained in:
Anthony Scemama 2016-10-28 18:18:46 +02:00
parent afc4111e24
commit 08ac74cc2d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ZMQ/utils.irp.f
View File

@ -265,12 +265,14 @@ function new_zmq_pull_socket()
if (rc /= 0) then
icount = icount-1
call sleep(3)
else
exit
endif
enddo
if (icount == 0) then
print *, 'Unable to bind new_zmq_pull_socket (inproc)', zmq_socket_pull_inproc_address
stop
stop -1
endif
@ -280,13 +282,14 @@ function new_zmq_pull_socket()
if (rc /= 0) then
icount = icount-1
call sleep(3)
else
exit
endif
enddo
if (icount == 0) then
print *, 'Unable to bind new_zmq_pull_socket (tcp)', zmq_socket_pull_tcp_address
stop
stop -1
endif
end