diff --git a/plugins/MRCC_Utils/mrcc_dress.irp.f b/plugins/MRCC_Utils/mrcc_dress.irp.f index 42c8d9d0..c54f73fa 100644 --- a/plugins/MRCC_Utils/mrcc_dress.irp.f +++ b/plugins/MRCC_Utils/mrcc_dress.irp.f @@ -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