mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-03 01:45:59 +02:00
bug in idx_microlist
This commit is contained in:
parent
3fd6e3c83b
commit
97bc25183f
|
@ -65,7 +65,7 @@ subroutine perturb_buffer_$PERT(i_generator,buffer,buffer_size,e_2_pert_buffer,c
|
||||||
|
|
||||||
if(key_mask(1,1) /= 0) then
|
if(key_mask(1,1) /= 0) then
|
||||||
call create_microlist(minilist, N_minilist, key_mask, microlist, idx_microlist, N_microlist,Nint)
|
call create_microlist(minilist, N_minilist, key_mask, microlist, idx_microlist, N_microlist,Nint)
|
||||||
do i=1,mo_tot_num*2
|
do i=0,mo_tot_num*2
|
||||||
do k=1,N_microlist(i)
|
do k=1,N_microlist(i)
|
||||||
idx_microlist(k,i) = idx_minilist(idx_microlist(k,i))
|
idx_microlist(k,i) = idx_minilist(idx_microlist(k,i))
|
||||||
end do
|
end do
|
||||||
|
|
Loading…
Reference in New Issue
Block a user