LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-03-17 06:06:50 +01:00
Code Issues Releases Wiki Activity

Fixed Distributed Davidson of a bitch

Browse Source
This commit is contained in:
Anthony Scemama 2017-03-03 12:15:49 +01:00
parent 11932f5540
commit 317ca2fbaa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Davidson/davidson_parallel.irp.f
View File

@ -256,7 +256,7 @@ subroutine davidson_slave_work(zmq_to_qp_run_socket, zmq_socket_push, worker_id)
do do
call get_task_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id, task) call get_task_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id, task)
if(task_id == 0) exit 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) bs = shortcut_(blockb+1,1) - shortcut_(blockb, 1)
do i=blockb, shortcut_(0,2), shortcut_(0,1) do i=blockb, shortcut_(0,2), shortcut_(0,1)
do j=i, min(i, shortcut_(0,2)) do j=i, min(i, shortcut_(0,2))