From 1dfc8979beb92a46371885efa6fbf30aa3cdf836 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 1 Feb 2017 17:53:53 +0100 Subject: [PATCH] Reduced nb of tooth fillings --- plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f index 96d770eb..5a7c92a1 100644 --- a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f +++ b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f @@ -367,10 +367,12 @@ subroutine get_carlo_workbatch(computed, comb, Ncomb, tbc) integer, intent(inout) :: Ncomb logical, intent(inout) :: computed(N_det_generators) integer :: i, j, last_full, dets(comb_teeth), tbc_save + integer :: n + n = int(sqrt(dble(size(comb)))) call RANDOM_NUMBER(comb) - do j=1,size(comb),100 - do i=j,min(size(comb),j+99) + do j=1,size(comb),n + do i=j,min(size(comb),j+n-1) comb(i) = comb(i) * comb_step tbc_save = tbc(0) !DIR$ FORCEINLINE