mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-26 14:31:44 +02:00
debug in abort
This commit is contained in:
parent
205d786c3a
commit
b3bade7c9f
@ -761,6 +761,7 @@ integer function add_task_to_taskserver(zmq_to_qp_run_socket,task)
|
||||
|
||||
rc = f77_zmq_recv(zmq_to_qp_run_socket, message, sze-1, 0)
|
||||
if (message(1:rc) /= 'ok') then
|
||||
print *, 'add_task_to_taskserver: '//trim(message(1:rc))
|
||||
add_task_to_taskserver = -1
|
||||
return
|
||||
endif
|
||||
@ -790,6 +791,7 @@ integer function zmq_abort(zmq_to_qp_run_socket)
|
||||
|
||||
rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 510, 0)
|
||||
if (trim(message(1:rc)) /= 'ok') then
|
||||
print *, 'zmq_abort: '//trim(message(1:rc))
|
||||
zmq_abort = -1
|
||||
return
|
||||
endif
|
||||
@ -821,6 +823,7 @@ integer function task_done_to_taskserver(zmq_to_qp_run_socket, worker_id, task_i
|
||||
|
||||
rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 510, 0)
|
||||
if (trim(message(1:rc)) /= 'ok') then
|
||||
print *, 'task_done_to_taskserver: '//trim(message(1:rc))
|
||||
task_done_to_taskserver = -1
|
||||
return
|
||||
endif
|
||||
@ -862,6 +865,7 @@ integer function tasks_done_to_taskserver(zmq_to_qp_run_socket, worker_id, task_
|
||||
|
||||
rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 64, 0)
|
||||
if (trim(message(1:rc)) /= 'ok') then
|
||||
print *, 'tasks_done_to_taskserver: '//trim(message(1:rc))
|
||||
tasks_done_to_taskserver = -1
|
||||
endif
|
||||
deallocate(message)
|
||||
|
Loading…
Reference in New Issue
Block a user