diff --git a/src/Dets/determinants.irp.f b/src/Dets/determinants.irp.f index 117096c3..3a186eac 100644 --- a/src/Dets/determinants.irp.f +++ b/src/Dets/determinants.irp.f @@ -149,7 +149,7 @@ END_PROVIDER duplicate(i) = .False. enddo - do i=1,N_det + do i=1,N_det-1 if (duplicate(i)) then cycle endif