LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 12:56:14 +01:00
Code Issues Releases Wiki Activity

Merge pull request #174 from scemama/master

Browse Source 
Removed useless unbind
This commit is contained in:
Thomas Applencourt 2016-10-31 15:22:49 -05:00 committed by GitHub
commit 5702db28f6
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -426,7 +426,6 @@ subroutine end_zmq_pair_socket(zmq_socket_pair)
integer :: rc integer :: rc
character*(8), external :: zmq_port character*(8), external :: zmq_port
rc = f77_zmq_unbind(zmq_socket_pair,zmq_socket_pair_inproc_address)
rc = f77_zmq_close(zmq_socket_pair) rc = f77_zmq_close(zmq_socket_pair)
if (rc /= 0) then if (rc /= 0) then
print *, 'f77_zmq_close(zmq_socket_pair)' print *, 'f77_zmq_close(zmq_socket_pair)'
@ -445,8 +444,6 @@ subroutine end_zmq_pull_socket(zmq_socket_pull)
integer :: rc integer :: rc
character*(8), external :: zmq_port 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) rc = f77_zmq_close(zmq_socket_pull)
if (rc /= 0) then if (rc /= 0) then
print *, 'f77_zmq_close(zmq_socket_pull)' print *, 'f77_zmq_close(zmq_socket_pull)'