mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-16 17:35:42 +02:00
Fixed binding bug
This commit is contained in:
parent
afc4111e24
commit
08ac74cc2d
@ -265,12 +265,14 @@ function new_zmq_pull_socket()
|
|||||||
if (rc /= 0) then
|
if (rc /= 0) then
|
||||||
icount = icount-1
|
icount = icount-1
|
||||||
call sleep(3)
|
call sleep(3)
|
||||||
|
else
|
||||||
|
exit
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
if (icount == 0) then
|
if (icount == 0) then
|
||||||
print *, 'Unable to bind new_zmq_pull_socket (inproc)', zmq_socket_pull_inproc_address
|
print *, 'Unable to bind new_zmq_pull_socket (inproc)', zmq_socket_pull_inproc_address
|
||||||
stop
|
stop -1
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
|
||||||
@ -280,13 +282,14 @@ function new_zmq_pull_socket()
|
|||||||
if (rc /= 0) then
|
if (rc /= 0) then
|
||||||
icount = icount-1
|
icount = icount-1
|
||||||
call sleep(3)
|
call sleep(3)
|
||||||
|
else
|
||||||
|
exit
|
||||||
endif
|
endif
|
||||||
|
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
if (icount == 0) then
|
if (icount == 0) then
|
||||||
print *, 'Unable to bind new_zmq_pull_socket (tcp)', zmq_socket_pull_tcp_address
|
print *, 'Unable to bind new_zmq_pull_socket (tcp)', zmq_socket_pull_tcp_address
|
||||||
stop
|
stop -1
|
||||||
endif
|
endif
|
||||||
|
|
||||||
end
|
end
|
||||||
|
Loading…
Reference in New Issue
Block a user