mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-13 09:34:02 +01:00
28 lines
1.3 KiB
Fortran
28 lines
1.3 KiB
Fortran
|
|
subroutine set_generators_bitmasks_as_holes_and_particles
|
|
implicit none
|
|
integer :: i,k
|
|
do k = 1, N_generators_bitmask
|
|
do i = 1, N_int
|
|
! Pure single part
|
|
generators_bitmask(i,1,1,k) = holes_operators(i,1) ! holes for pure single exc alpha
|
|
generators_bitmask(i,1,2,k) = particles_operators(i,1) ! particles for pure single exc alpha
|
|
generators_bitmask(i,2,1,k) = holes_operators(i,2) ! holes for pure single exc beta
|
|
generators_bitmask(i,2,2,k) = particles_operators(i,2) ! particles for pure single exc beta
|
|
|
|
! Double excitation
|
|
generators_bitmask(i,1,3,k) = holes_operators(i,1) ! holes for first single exc alpha
|
|
generators_bitmask(i,1,4,k) = particles_operators(i,1) ! particles for first single exc alpha
|
|
generators_bitmask(i,2,3,k) = holes_operators(i,2) ! holes for first single exc beta
|
|
generators_bitmask(i,2,4,k) = particles_operators(i,2) ! particles for first single exc beta
|
|
|
|
generators_bitmask(i,1,5,k) = holes_operators(i,1) ! holes for second single exc alpha
|
|
generators_bitmask(i,1,6,k) = particles_operators(i,1) ! particles for second single exc alpha
|
|
generators_bitmask(i,2,5,k) = holes_operators(i,2) ! holes for second single exc beta
|
|
generators_bitmask(i,2,6,k) = particles_operators(i,2) ! particles for second single exc beta
|
|
|
|
enddo
|
|
enddo
|
|
touch generators_bitmask
|
|
end
|