LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-01 19:05:25 +02:00
Code Issues Releases Wiki Activity

Merge branch 'master' of github.com:scemama/quantum_package

Browse Source
This commit is contained in:
Anthony Scemama 2017-07-15 18:03:21 +02:00
commit 6ff6a031ae
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Determinants/slater_rules.irp.f
View File

@ -43,10 +43,12 @@ subroutine get_excitation_degree(key1,key2,degree,Nint)
degree = sum(popcnt(xorvec(1:8)))
case default
do l=1,ishft(Nint,1)
integer :: lmax
lmax = ishft(Nint,1)
do l=1,lmax
xorvec(l) = xor( key1(l), key2(l))
enddo
degree = sum(popcnt(xorvec(1:l)))
degree = sum(popcnt(xorvec(1:lmax)))
end select