10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 07:02:14 +02:00

Better load balancing in Davidson

This commit is contained in:
Anthony Scemama 2017-04-19 20:46:09 +02:00
parent 9957279967
commit a9414b4a64

View File

@ -344,9 +344,9 @@ subroutine H_S2_u_0_nstates_zmq(v_0,s_0,u_0,N_st,sze)
integer :: istep, imin, imax, ishift
double precision :: w, max_workload, N_det_inv, di
max_workload = 200000.d0
max_workload = 1000000.d0
w = 0.d0
istep=4
istep=8
ishift=0
imin=1
N_det_inv = 1.d0/dble(N_det)
@ -359,7 +359,6 @@ subroutine H_S2_u_0_nstates_zmq(v_0,s_0,u_0,N_st,sze)
write(task,'(4(I9,1X),1A)') imin, imax, ishift, istep, '|'
call add_task_to_taskserver(zmq_to_qp_run_socket,trim(task))
enddo
istep = max(istep-1,1)
imin = imax+1
w = 0.d0
endif