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

Better load balancing in Davidson

Browse Source
This commit is contained in:
Anthony Scemama 2017-04-19 20:46:09 +02:00
parent 9957279967
commit a9414b4a64
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Davidson/davidson_parallel.irp.f
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 integer :: istep, imin, imax, ishift
double precision :: w, max_workload, N_det_inv, di double precision :: w, max_workload, N_det_inv, di
max_workload = 200000.d0 max_workload = 1000000.d0
w = 0.d0 w = 0.d0
istep=4 istep=8
ishift=0 ishift=0
imin=1 imin=1
N_det_inv = 1.d0/dble(N_det) 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, '|' write(task,'(4(I9,1X),1A)') imin, imax, ishift, istep, '|'
call add_task_to_taskserver(zmq_to_qp_run_socket,trim(task)) call add_task_to_taskserver(zmq_to_qp_run_socket,trim(task))
enddo enddo
istep = max(istep-1,1)
imin = imax+1 imin = imax+1
w = 0.d0 w = 0.d0
endif endif