LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-17 08:30:31 +02:00
Code Issues Releases Wiki Activity

Reduced nb of tooth fillings

Browse Source
This commit is contained in:
Anthony Scemama 2017-02-01 17:53:53 +01:00
parent fe5f640346
commit 1dfc8979be
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
View File

@ -367,10 +367,12 @@ subroutine get_carlo_workbatch(computed, comb, Ncomb, tbc)
integer, intent(inout) :: Ncomb integer, intent(inout) :: Ncomb
logical, intent(inout) :: computed(N_det_generators) logical, intent(inout) :: computed(N_det_generators)
integer :: i, j, last_full, dets(comb_teeth), tbc_save integer :: i, j, last_full, dets(comb_teeth), tbc_save
integer :: n
n = int(sqrt(dble(size(comb))))
call RANDOM_NUMBER(comb) call RANDOM_NUMBER(comb)
do j=1,size(comb),100 do j=1,size(comb),n
do i=j,min(size(comb),j+99) do i=j,min(size(comb),j+n-1)
comb(i) = comb(i) * comb_step comb(i) = comb(i) * comb_step
tbc_save = tbc(0) tbc_save = tbc(0)
!DIR$ FORCEINLINE !DIR$ FORCEINLINE