From 8144e529f55a58367b7a5d78905411d204592dfd Mon Sep 17 00:00:00 2001 From: mveril Date: Fri, 12 Mar 2021 14:44:27 +0100 Subject: [PATCH] Other fixes for Ubuntu 20.10 --- src/cipsi/slave_cipsi.irp.f | 4 ++-- src/cipsi/zmq_selection.irp.f | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cipsi/slave_cipsi.irp.f b/src/cipsi/slave_cipsi.irp.f index e9990986..8583c9c1 100644 --- a/src/cipsi/slave_cipsi.irp.f +++ b/src/cipsi/slave_cipsi.irp.f @@ -100,7 +100,7 @@ subroutine run_slave_main IRP_IF MPI_DEBUG call mpi_print('zmq_get_dvector threshold_generators') IRP_ENDIF - if (zmq_get_dvector(zmq_to_qp_run_socket,1,'threshold_generators',threshold_generators,1) == -1) cycle + if (zmq_get_dvector(zmq_to_qp_run_socket,1,'threshold_generators',(/threshold_generators/),1) == -1) cycle IRP_IF MPI_DEBUG call mpi_print('zmq_get_dvector energy') IRP_ENDIF @@ -212,7 +212,7 @@ subroutine run_slave_main IRP_IF MPI_DEBUG call mpi_print('zmq_get_dvector threshold_generators') IRP_ENDIF - if (zmq_get_dvector(zmq_to_qp_run_socket,1,'threshold_generators',threshold_generators,1) == -1) cycle + if (zmq_get_dvector(zmq_to_qp_run_socket,1,'threshold_generators',(/threshold_generators/),1) == -1) cycle IRP_IF MPI_DEBUG call mpi_print('zmq_get_dvector energy') IRP_ENDIF diff --git a/src/cipsi/zmq_selection.irp.f b/src/cipsi/zmq_selection.irp.f index 081d998f..7bc0df57 100644 --- a/src/cipsi/zmq_selection.irp.f +++ b/src/cipsi/zmq_selection.irp.f @@ -49,7 +49,7 @@ subroutine ZMQ_selection(N_in, pt2, variance, norm) if (zmq_put_dvector(zmq_to_qp_run_socket,1,'selection_weight',selection_weight,N_states) == -1) then stop 'Unable to put selection_weight on ZMQ server' endif - if (zmq_put_dvector(zmq_to_qp_run_socket,1,'threshold_generators',threshold_generators,1) == -1) then + if (zmq_put_dvector(zmq_to_qp_run_socket,1,'threshold_generators',(/threshold_generators/),1) == -1) then stop 'Unable to put threshold_generators on ZMQ server' endif call create_selection_buffer(N, N*2, b)