LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-22 18:57:31 +02:00
Code Issues Releases Wiki Activity

Bug in generators

Browse Source
This commit is contained in:
Anthony Scemama 2014-06-12 23:02:41 +02:00
parent 42d8b4c404
commit 270dc053fa
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Generators_full/generators.irp.f
View File

@ -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