From 5cb15587a2f80a4bee44d303507e7b9161e4e5c7 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 31 Aug 2020 15:14:58 +0200 Subject: [PATCH] Fix bug in zmq_pull --- src/cipsi/run_selection_slave.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cipsi/run_selection_slave.irp.f b/src/cipsi/run_selection_slave.irp.f index 650654be..c2ba2379 100644 --- a/src/cipsi/run_selection_slave.irp.f +++ b/src/cipsi/run_selection_slave.irp.f @@ -208,7 +208,7 @@ subroutine pull_selection_results(zmq_socket_pull, pt2_data, val, det, N, task_i endif allocate(pt2_serialized (pt2_type_size(N_states)) ) - rc = f77_zmq_recv( zmq_socket_pull, pt2_serialized, 8*size(pt2_serialized)*ntasks, 0) + rc = f77_zmq_recv( zmq_socket_pull, pt2_serialized, 8*size(pt2_serialized), 0) if (rc == -1) then ntasks = 1 task_id(1) = 0