LCPQ/eplf
10
0
Fork 0
mirror of https://gitlab.com/scemama/eplf synced 2024-10-31 19:23:55 +01:00
Code Issues Releases Wiki Activity

Bug

Browse Source
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 m=0
n=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 integer :: jmax
jmax = elec_num_2(p)-mo_closed_num 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 r=0
s=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 integer :: jmax
jmax = elec_num_2(p)-mo_closed_num jmax = elec_num_2(p)-mo_closed_num