10
0
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:
Yann Garniron 2015-12-02 11:59:01 +01:00
parent b2f3982486
commit 280d81deed

View File

@ -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