From 317ca2fbaac1b1f8a63e5efea10a0f30cceacd7c Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Fri, 3 Mar 2017 12:15:49 +0100 Subject: [PATCH] Fixed Distributed Davidson of a bitch --- 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 b4b79585..eee6deb6 100644 --- a/src/Davidson/davidson_parallel.irp.f +++ b/src/Davidson/davidson_parallel.irp.f @@ -256,7 +256,7 @@ subroutine davidson_slave_work(zmq_to_qp_run_socket, zmq_socket_push, worker_id) do call get_task_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id, task) if(task_id == 0) exit - read (task,'(3(I9,X))') blockb, blockb2, istep + read (task,*) blockb, blockb2, istep bs = shortcut_(blockb+1,1) - shortcut_(blockb, 1) do i=blockb, shortcut_(0,2), shortcut_(0,1) do j=i, min(i, shortcut_(0,2))