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 scheduling in davidson_process

Browse Source
This commit is contained in:
Yann Garniron 2016-10-10 10:13:57 +02:00
parent b167dcebef
commit 61f1e0814a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,8 +34,8 @@ subroutine davidson_process(blockb, blocke, vt, st)
allocate(localv(N_states_diag, shortcut_(sh+1,1) - shortcut_(sh,1)))
locals = 0d0
localv = 0d0
!$OMP DO
do sh2=1,sh
!$OMP DO schedule(static, 1)
do sh2=sh, shortcut_(0,1) !1,sh
exa = 0
do ni=1,N_int
exa = exa + popcnt(xor(version_(ni,sh,1), version_(ni,sh2,1)))