From 61f1e0814af6aadf429841103391b68e38e086bd Mon Sep 17 00:00:00 2001 From: Yann Garniron Date: Mon, 10 Oct 2016 10:13:57 +0200 Subject: [PATCH] better scheduling in davidson_process --- src/Davidson/davidson_parallel.irp.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Davidson/davidson_parallel.irp.f b/src/Davidson/davidson_parallel.irp.f index a23984d5..9d12a5b4 100644 --- a/src/Davidson/davidson_parallel.irp.f +++ b/src/Davidson/davidson_parallel.irp.f @@ -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)))