LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 07:02:14 +02:00
Code Issues Releases Wiki Activity

Better load balancing in Davidson

Browse Source
This commit is contained in:
Anthony Scemama 2017-04-19 20:22:37 +02:00
parent a28a9d7d33
commit 9957279967
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

@ -353,7 +353,7 @@ subroutine H_S2_u_0_nstates_zmq(v_0,s_0,u_0,N_st,sze)
di = dble(N_det)
do imax=1,N_det
di = di-1.d0
w = w + (di*N_det_inv)**2
w = w + di*N_det_inv
if (w > max_workload) then
do ishift=0,istep-1
write(task,'(4(I9,1X),1A)') imin, imax, ishift, istep, '|'