LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-16 09:35:19 +02:00
Code Releases Activity

Working on getting singly excited CFGs. #143.

Browse Source
This commit is contained in:
v1j4y 2021-02-09 12:34:34 +01:00
parent 5f8ed8bb9d
commit 6940f77618
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/determinants/create_excitations.irp.f
View File

@ -336,7 +336,7 @@ subroutine generate_all_singles_cfg(cfg,singles,n_singles,Nint)
enddo
end
subroutine generate_all_singles_cfg_with_type(cfg,singles,ex_type_singles,n_singles,Nint)
subroutine generate_all_singles_cfg_with_type(cfg,singles,idxs_singles,pq_singles,ex_type_singles,n_singles,Nint)
implicit none
use bitmasks
BEGIN_DOC
@ -350,7 +350,9 @@ subroutine generate_all_singles_cfg_with_type(cfg,singles,ex_type_singles,n_sing
END_DOC
integer, intent(in) :: Nint
integer, intent(inout) :: n_singles
integer, intent(out) :: idxs_singles(*)
integer, intent(out) :: ex_type_singles(*)
real*8 , intent(out) :: pq_singles(2,*)
integer(bit_kind), intent(in) :: cfg(Nint,2)
integer(bit_kind), intent(out) :: singles(Nint,2,*)
@ -371,6 +373,8 @@ subroutine generate_all_singles_cfg_with_type(cfg,singles,ex_type_singles,n_sing
singles(k,1,n_singles) = single(k,1)
singles(k,2,n_singles) = single(k,2)
ex_type_singles(n_singles) = ex_type
pq_singles(1,n_singles) = i_hole ! p
pq_singles(1,n_singles) = i_particle ! q
enddo
endif
enddo