mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-10-30 10:18:07 +01:00
Type error in sending
This commit is contained in:
parent
e62dd629c4
commit
ca26262907
@ -327,9 +327,9 @@ subroutine push_pt2_results_async_recv(zmq_socket_push,mini,sending)
|
||||
implicit none
|
||||
|
||||
integer(ZMQ_PTR), intent(in) :: zmq_socket_push
|
||||
integer(ZMQ_PTR), intent(inout) :: sending
|
||||
double precision, intent(out) :: mini
|
||||
logical, intent(inout) :: sending
|
||||
integer :: rc
|
||||
double precision :: mini
|
||||
|
||||
if (.not.sending) return
|
||||
|
||||
|
@ -1193,7 +1193,7 @@ integer function zmq_delete_tasks_async_send(zmq_to_qp_run_socket,task_id,n_task
|
||||
END_DOC
|
||||
integer(ZMQ_PTR), intent(in) :: zmq_to_qp_run_socket
|
||||
integer, intent(in) :: n_tasks, task_id(n_tasks)
|
||||
integer, intent(inout) :: sending
|
||||
logical, intent(inout) :: sending
|
||||
integer :: rc, k
|
||||
character*(64) :: fmt, reply
|
||||
character(LEN=:), allocatable :: message
|
||||
@ -1231,7 +1231,7 @@ integer function zmq_delete_tasks_async_recv(zmq_to_qp_run_socket,more,sending)
|
||||
END_DOC
|
||||
integer(ZMQ_PTR), intent(in) :: zmq_to_qp_run_socket
|
||||
integer, intent(out) :: more
|
||||
integer, intent(inout) :: sending
|
||||
logical, intent(inout) :: sending
|
||||
integer :: rc
|
||||
character*(64) :: reply
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user