LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 03:23:29 +01:00
Code Releases Activity

Fixed zmq

Browse Source
This commit is contained in:
Anthony Scemama 2021-01-30 00:30:44 +01:00
parent 3d6a75ca42
commit 3fec30e4d8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zmq/utils.irp.f
View File

@ -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)