mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-25 05:31:48 +02:00
fix bug in get_excitation_general
This commit is contained in:
parent
56b80288eb
commit
2f246780eb
@ -137,6 +137,7 @@ subroutine get_excitation_general(det1,det2,degree,n,list_anni,list_crea,phase,N
|
|||||||
do j = 1, 2
|
do j = 1, 2
|
||||||
k = 1
|
k = 1
|
||||||
do i = 1, n1(j)
|
do i = 1, n1(j)
|
||||||
|
if (k > n_anni(j)) exit
|
||||||
if (l1(i,j) /= list_anni(k,j)) cycle
|
if (l1(i,j) /= list_anni(k,j)) cycle
|
||||||
pos_anni(k,j) = i
|
pos_anni(k,j) = i
|
||||||
k = k + 1
|
k = k + 1
|
||||||
@ -147,6 +148,7 @@ subroutine get_excitation_general(det1,det2,degree,n,list_anni,list_crea,phase,N
|
|||||||
do j = 1, 2
|
do j = 1, 2
|
||||||
k = 1
|
k = 1
|
||||||
do i = 1, n2(j)
|
do i = 1, n2(j)
|
||||||
|
if (k > n_crea(j)) exit
|
||||||
if (l2(i,j) /= list_crea(k,j)) cycle
|
if (l2(i,j) /= list_crea(k,j)) cycle
|
||||||
pos_crea(k,j) = i
|
pos_crea(k,j) = i
|
||||||
k = k + 1
|
k = k + 1
|
||||||
|
@ -96,6 +96,7 @@ subroutine get_excitation_general(det1,det2,degree,n,list_anni,list_crea,phase,N
|
|||||||
do j = 1, 2
|
do j = 1, 2
|
||||||
k = 1
|
k = 1
|
||||||
do i = 1, n1(j)
|
do i = 1, n1(j)
|
||||||
|
if (k > n_anni(j)) exit
|
||||||
if (l1(i,j) /= list_anni(k,j)) cycle
|
if (l1(i,j) /= list_anni(k,j)) cycle
|
||||||
pos_anni(k,j) = i
|
pos_anni(k,j) = i
|
||||||
k = k + 1
|
k = k + 1
|
||||||
@ -106,6 +107,7 @@ subroutine get_excitation_general(det1,det2,degree,n,list_anni,list_crea,phase,N
|
|||||||
do j = 1, 2
|
do j = 1, 2
|
||||||
k = 1
|
k = 1
|
||||||
do i = 1, n2(j)
|
do i = 1, n2(j)
|
||||||
|
if (k > n_crea(j)) exit
|
||||||
if (l2(i,j) /= list_crea(k,j)) cycle
|
if (l2(i,j) /= list_crea(k,j)) cycle
|
||||||
pos_crea(k,j) = i
|
pos_crea(k,j) = i
|
||||||
k = k + 1
|
k = k + 1
|
||||||
|
Loading…
Reference in New Issue
Block a user