diff --git a/src/det.irp.f b/src/det.irp.f
index a2bcd2c..2b5e54c 100644
--- a/src/det.irp.f
+++ b/src/det.irp.f
@@ -110,7 +110,7 @@ subroutine get_single_excitation(k,l,m,n,p)
  m=0
  n=0
 
- integer :: dl(mo_closed_num), dk(mo_closed_num), buffer(0:mo_closed_num)
+ integer :: dl(elec_alpha_num-mo_closed_num), dk(elec_alpha_num-mo_closed_num), buffer(0:elec_alpha_num-mo_closed_num)
  integer :: jmax
  jmax = elec_num_2(p)-mo_closed_num
 
@@ -157,7 +157,7 @@ subroutine get_double_excitation(k,l,m,n,r,s,p)
  r=0
  s=0
 
- integer :: dl(mo_closed_num), dk(mo_closed_num), buffer(0:mo_closed_num)
+ integer :: dl(elec_alpha_num-mo_closed_num), dk(elec_alpha_num-mo_closed_num), buffer(0:elec_alpha_num-mo_closed_num)
  integer :: jmax
  jmax = elec_num_2(p)-mo_closed_num