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
|
||||
|
||||
if (k == N_det) cycle
|
||||
l = k+1
|
||||
lrow = psi_bilinear_matrix_rows(l)
|
||||
lcol = psi_bilinear_matrix_columns(l)
|
||||
@ -90,7 +91,9 @@ END_PROVIDER
|
||||
lcol = psi_bilinear_matrix_columns(l)
|
||||
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
|
||||
lrow = psi_bilinear_matrix_transp_rows(l)
|
||||
lcol = psi_bilinear_matrix_transp_columns(l)
|
||||
|
Loading…
Reference in New Issue
Block a user