mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 05:51:46 +02:00
Bug in generators
This commit is contained in:
parent
42d8b4c404
commit
270dc053fa
@ -47,7 +47,13 @@ BEGIN_PROVIDER [ integer(bit_kind), psi_generators, (N_int,2,psi_det_size) ]
|
||||
! For Single reference wave functions, the generator is the
|
||||
! Hartree-Fock determinant
|
||||
END_DOC
|
||||
psi_generators = psi_det_sorted
|
||||
integer :: i, k
|
||||
do i=1,N_det
|
||||
do k=1,N_int
|
||||
psi_generators(k,1,i) = psi_det_sorted(k,1,i)
|
||||
psi_generators(k,2,i) = psi_det_sorted(k,2,i)
|
||||
enddo
|
||||
enddo
|
||||
|
||||
END_PROVIDER
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user