LCPQ
/
eplf
mirror of https://gitlab.com/scemama/eplf
10
0
Fork 0
Code Issues Releases Wiki Activity

Bug

This commit is contained in:
Anthony Scemama 2011-03-30 19:40:29 +02:00
parent f6ad2c1a29
commit 2b22d66cef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/det.irp.f
View File

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