From f82137ca36b68c14496109cf7ab8d4b0c4f7f0a6 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sun, 9 Oct 2016 23:25:24 +0200 Subject: [PATCH] Fixed : Forgot argument in davidson function --- src/Davidson/davidson_parallel.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Davidson/davidson_parallel.irp.f b/src/Davidson/davidson_parallel.irp.f index aa2fbc23..175958f0 100644 --- a/src/Davidson/davidson_parallel.irp.f +++ b/src/Davidson/davidson_parallel.irp.f @@ -472,7 +472,7 @@ subroutine davidson_run(zmq_to_qp_run_socket , v0, s0, LDA) !$OMP PARALLEL NUM_THREADS(nproc+2) PRIVATE(i) i = omp_get_thread_num() if (i == 0 ) then - call davidson_collector(zmq_collector, zmq_socket_pull , v0, s0) + call davidson_collector(zmq_collector, zmq_socket_pull , v0, s0, LDA) call end_zmq_to_qp_run_socket(zmq_collector) call end_zmq_pull_socket(zmq_socket_pull) call davidson_miniserver_end()