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
ef07f9bc8e
@ -67,6 +67,7 @@ END_PROVIDER
|
|||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
if (k == N_det) cycle
|
||||||
l = k+1
|
l = k+1
|
||||||
lrow = psi_bilinear_matrix_rows(l)
|
lrow = psi_bilinear_matrix_rows(l)
|
||||||
lcol = psi_bilinear_matrix_columns(l)
|
lcol = psi_bilinear_matrix_columns(l)
|
||||||
@ -90,7 +91,9 @@ END_PROVIDER
|
|||||||
lcol = psi_bilinear_matrix_columns(l)
|
lcol = psi_bilinear_matrix_columns(l)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
l = psi_bilinear_matrix_order_reverse(k)+1
|
l = psi_bilinear_matrix_order_reverse(k)
|
||||||
|
if (l == N_det) cycle
|
||||||
|
l = l+1
|
||||||
! Fix alpha determinant, loop over betas
|
! Fix alpha determinant, loop over betas
|
||||||
lrow = psi_bilinear_matrix_transp_rows(l)
|
lrow = psi_bilinear_matrix_transp_rows(l)
|
||||||
lcol = psi_bilinear_matrix_transp_columns(l)
|
lcol = psi_bilinear_matrix_transp_columns(l)
|
||||||
|
Loading…
Reference in New Issue
Block a user