diff --git a/plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f b/plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f index c1b6bcd9..b8038e4d 100644 --- a/plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f +++ b/plugins/Full_CI_ZMQ/selection_davidson_slave.irp.f @@ -63,6 +63,7 @@ subroutine run_wf ! -------- print *, 'Davidson' + call zmq_get_psi(zmq_to_qp_run_socket,1,energy,N_states) call omp_set_nested(.True.) call davidson_slave_tcp(0) call omp_set_nested(.False.) diff --git a/src/Davidson/davidson_parallel.irp.f b/src/Davidson/davidson_parallel.irp.f index 4b4276fd..a0902ec2 100644 --- a/src/Davidson/davidson_parallel.irp.f +++ b/src/Davidson/davidson_parallel.irp.f @@ -119,7 +119,7 @@ subroutine davidson_slave_work(zmq_to_qp_run_socket, zmq_socket_push, N_st, sze, rc = f77_zmq_recv(zmq_to_qp_run_socket,u_t,size(u_t)*8,0) if (rc /= size(u_t)*8) then print *, rc, size(u_t)*8 - print *, 'f77_zmq_recv(zmq_to_qp_run_socket,u_t,size(u_t)×8,0)' + print *, 'f77_zmq_recv(zmq_to_qp_run_socket,u_t,size(u_t)*8,0)' stop 'error' endif