10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 04:43:45 +01:00

Merge branch 'dev' into csf

This commit is contained in:
Anthony Scemama 2021-01-30 00:31:01 +01:00
commit d750915fcf

View File

@ -1230,8 +1230,8 @@ integer function zmq_delete_tasks_async_recv(zmq_to_qp_run_socket,more,sending)
integer :: rc
character*(64) :: reply
if (.not.sending) return
zmq_delete_tasks_async_recv = 0
if (.not.sending) return
reply = ''
rc = f77_zmq_recv(zmq_to_qp_run_socket,reply,64,0)