mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 14:01:46 +02:00
Merge branch 'master' of github.com:scemama/quantum_package
This commit is contained in:
commit
6ff6a031ae
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user