LCPQ
/
qp2
mirror of https://github.com/QuantumPackage/qp2.git
9
1
Fork 0
Code Releases Activity

Type error in sending

This commit is contained in:
Anthony Scemama 2019-01-31 17:57:36 +01:00
parent e62dd629c4
commit ca26262907
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/cipsi/run_pt2_slave.irp.f
View File

@ -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

4
src/zmq/utils.irp.f
View File

@ -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