From ca262629077f6f4fb886721ecd34b4695124524e Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Thu, 31 Jan 2019 17:57:36 +0100 Subject: [PATCH] Type error in sending --- src/cipsi/run_pt2_slave.irp.f | 4 ++-- src/zmq/utils.irp.f | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/cipsi/run_pt2_slave.irp.f b/src/cipsi/run_pt2_slave.irp.f index 3218adcb..b4df2def 100644 --- a/src/cipsi/run_pt2_slave.irp.f +++ b/src/cipsi/run_pt2_slave.irp.f @@ -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 diff --git a/src/zmq/utils.irp.f b/src/zmq/utils.irp.f index cf03d2b5..4c838302 100644 --- a/src/zmq/utils.irp.f +++ b/src/zmq/utils.irp.f @@ -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