From 2437bbfe97df18ac6a2f099a56f602720cee3fcb Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Tue, 22 May 2018 17:09:12 +0200 Subject: [PATCH] MPI bug fixed --- plugins/Full_CI_ZMQ/pt2_slave.irp.f | 2 ++ plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f | 4 ++++ 2 files changed, 6 insertions(+) diff --git a/plugins/Full_CI_ZMQ/pt2_slave.irp.f b/plugins/Full_CI_ZMQ/pt2_slave.irp.f index 718884d1..2764b169 100644 --- a/plugins/Full_CI_ZMQ/pt2_slave.irp.f +++ b/plugins/Full_CI_ZMQ/pt2_slave.irp.f @@ -57,6 +57,8 @@ subroutine run_wf PROVIDE psi_bilinear_matrix_rows psi_det_sorted_order psi_bilinear_matrix_order PROVIDE psi_bilinear_matrix_transp_rows_loc psi_bilinear_matrix_transp_columns PROVIDE psi_bilinear_matrix_transp_order + psi_energy(1:N_states) = energy(1:N_states) + TOUCH psi_energy !$OMP PARALLEL PRIVATE(i) i = omp_get_thread_num() diff --git a/plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f b/plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f index 49943ad1..2b6df181 100644 --- a/plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f +++ b/plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f @@ -65,6 +65,8 @@ subroutine run_wf if (zmq_get_N_det_generators (zmq_to_qp_run_socket, 1) == -1) cycle if (zmq_get_N_det_selectors(zmq_to_qp_run_socket, 1) == -1) cycle if (zmq_get_dvector(zmq_to_qp_run_socket,1,'energy',energy,N_states) == -1) cycle + psi_energy(1:N_states) = energy(1:N_states) + TOUCH psi_energy call wall_time(t1) call write_double(6,(t1-t0),'Broadcast time') @@ -105,6 +107,8 @@ subroutine run_wf if (zmq_get_dvector(zmq_to_qp_run_socket,1,'energy',energy,N_states) == -1) cycle if (zmq_get_N_det_generators (zmq_to_qp_run_socket, 1) == -1) cycle if (zmq_get_N_det_selectors(zmq_to_qp_run_socket, 1) == -1) cycle + psi_energy(1:N_states) = energy(1:N_states) + TOUCH psi_energy call wall_time(t1) call write_double(6,(t1-t0),'Broadcast time')