LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-04 21:24:02 +01:00
Code Issues Releases Wiki Activity

debug

Browse Source
This commit is contained in:
Anthony Scemama 2018-03-29 10:31:35 +02:00
parent af1c600a53
commit 4cbe7d33a2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -785,13 +785,14 @@ integer function zmq_abort(zmq_to_qp_run_socket)
sze = len(trim(message)) sze = len(trim(message))
rc = f77_zmq_send(zmq_to_qp_run_socket, trim(message), sze, 0) rc = f77_zmq_send(zmq_to_qp_run_socket, trim(message), sze, 0)
if (rc /= sze) then if (rc /= sze) then
print *, 'zmq_abort: rc /= sze', rc, sze
zmq_abort = -1 zmq_abort = -1
return return
endif endif
rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 510, 0) rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 510, 0)
if (trim(message(1:rc)) /= 'ok') then if (trim(message(1:rc)) /= 'ok') then
print *, 'zmq_abort: '//trim(message(1:rc)) print *, 'zmq_abort: ', rc, ':', trim(message(1:rc))
zmq_abort = -1 zmq_abort = -1
return return
endif endif