mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-23 04:43:50 +01:00
bug in MRCC_dress
This commit is contained in:
parent
b2f3982486
commit
280d81deed
@ -273,7 +273,7 @@ subroutine find_triples_and_quadruples(i_generator,n_selected,det_buffer,Nint,tq
|
||||
|
||||
|
||||
i_loop : do i=1,N_selected
|
||||
if(is_connected_to(det_buffer(ni,1,i), miniList, Nint, N_miniList)) then
|
||||
if(is_connected_to(det_buffer(1,1,i), miniList, Nint, N_miniList)) then
|
||||
cycle
|
||||
end if
|
||||
! do j=1,N_miniList
|
||||
|
Loading…
Reference in New Issue
Block a user