From 3d6a75ca4297ffb90784c1734be4d799da47d053 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 25 Jan 2021 22:55:27 +0100 Subject: [PATCH 1/2] Fixed comment --- src/determinants/configurations.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/determinants/configurations.irp.f b/src/determinants/configurations.irp.f index c17ed04e..0171adf4 100644 --- a/src/determinants/configurations.irp.f +++ b/src/determinants/configurations.irp.f @@ -592,7 +592,7 @@ END_PROVIDER implicit none BEGIN_DOC ! psi_configuration_to_psi_det_data(k) -> i : i is the index of the - ! determinant in psi_det_sorted_bit. ! + ! determinant in psi_det. ! ! psi_configuration_to_psi_det(1:2,k) gives the first and last index of the ! determinants of configuration k in array psi_configuration_to_psi_det_data. From 3fec30e4d8c34602adc356c00776e05e721cf42a Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sat, 30 Jan 2021 00:30:44 +0100 Subject: [PATCH 2/2] Fixed zmq --- src/zmq/utils.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/zmq/utils.irp.f b/src/zmq/utils.irp.f index 07e3a88f..917bd4aa 100644 --- a/src/zmq/utils.irp.f +++ b/src/zmq/utils.irp.f @@ -1226,8 +1226,8 @@ integer function zmq_delete_tasks_async_recv(zmq_to_qp_run_socket,more,sending) integer :: rc character*(64) :: reply - if (.not.sending) return zmq_delete_tasks_async_recv = 0 + if (.not.sending) return reply = '' rc = f77_zmq_recv(zmq_to_qp_run_socket,reply,64,0)