mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-15 00:38:34 +02: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
|
implicit none
|
||||||
|
|
||||||
integer(ZMQ_PTR), intent(in) :: zmq_socket_push
|
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
|
integer :: rc
|
||||||
double precision :: mini
|
|
||||||
|
|
||||||
if (.not.sending) return
|
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
|
END_DOC
|
||||||
integer(ZMQ_PTR), intent(in) :: zmq_to_qp_run_socket
|
integer(ZMQ_PTR), intent(in) :: zmq_to_qp_run_socket
|
||||||
integer, intent(in) :: n_tasks, task_id(n_tasks)
|
integer, intent(in) :: n_tasks, task_id(n_tasks)
|
||||||
integer, intent(inout) :: sending
|
logical, intent(inout) :: sending
|
||||||
integer :: rc, k
|
integer :: rc, k
|
||||||
character*(64) :: fmt, reply
|
character*(64) :: fmt, reply
|
||||||
character(LEN=:), allocatable :: message
|
character(LEN=:), allocatable :: message
|
||||||
@ -1231,7 +1231,7 @@ integer function zmq_delete_tasks_async_recv(zmq_to_qp_run_socket,more,sending)
|
|||||||
END_DOC
|
END_DOC
|
||||||
integer(ZMQ_PTR), intent(in) :: zmq_to_qp_run_socket
|
integer(ZMQ_PTR), intent(in) :: zmq_to_qp_run_socket
|
||||||
integer, intent(out) :: more
|
integer, intent(out) :: more
|
||||||
integer, intent(inout) :: sending
|
logical, intent(inout) :: sending
|
||||||
integer :: rc
|
integer :: rc
|
||||||
character*(64) :: reply
|
character*(64) :: reply
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user