From 2b22d66ceffac7c4b457c37aae64d910d9edb36c Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 30 Mar 2011 19:40:29 +0200 Subject: [PATCH] Bug --- src/det.irp.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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