LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 13:53:49 +01:00
Code Issues Releases Wiki Activity

Init lindex=0

Browse Source
This commit is contained in:
Anthony Scemama 2018-10-15 19:04:05 +02:00
parent fc01113383
commit e2b4b1f58d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plugins/dress_zmq/alpha_factory.irp.f
View File

@ -382,6 +382,8 @@ subroutine alpha_callback_mask(delta_ij_loc, i_gen, sp, mask, bannedOrb, banned,
integer(bit_kind), allocatable :: det_minilist(:,:,:) integer(bit_kind), allocatable :: det_minilist(:,:,:)
lindex = 0
lindex_end = 0
allocate(abuf(siz), labuf(N_det), iorder(siz), det_minilist(N_int, 2, N_det)) allocate(abuf(siz), labuf(N_det), iorder(siz), det_minilist(N_int, 2, N_det))
do i=1,siz do i=1,siz