mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 05:51:46 +02: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
|
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
|
cycle
|
||||||
end if
|
end if
|
||||||
! do j=1,N_miniList
|
! do j=1,N_miniList
|
||||||
|
Loading…
Reference in New Issue
Block a user