mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 02:38:31 +02:00
Fixed zmq
This commit is contained in:
parent
3d6a75ca42
commit
3fec30e4d8
@ -1226,8 +1226,8 @@ integer function zmq_delete_tasks_async_recv(zmq_to_qp_run_socket,more,sending)
|
|||||||
integer :: rc
|
integer :: rc
|
||||||
character*(64) :: reply
|
character*(64) :: reply
|
||||||
|
|
||||||
if (.not.sending) return
|
|
||||||
zmq_delete_tasks_async_recv = 0
|
zmq_delete_tasks_async_recv = 0
|
||||||
|
if (.not.sending) return
|
||||||
|
|
||||||
reply = ''
|
reply = ''
|
||||||
rc = f77_zmq_recv(zmq_to_qp_run_socket,reply,64,0)
|
rc = f77_zmq_recv(zmq_to_qp_run_socket,reply,64,0)
|
||||||
|
Loading…
Reference in New Issue
Block a user