LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

Fixed broken filter_integrals in h_apply

Browse Source
This commit is contained in:
Anthony Scemama 2020-03-06 15:47:33 +01:00
parent fa258a9bf0
commit 22e54cecd1
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scripts/generate_h_apply.py
View File

@ -11,6 +11,7 @@ declarations
decls_main decls_main
deinit_thread deinit_thread
init_main init_main
filter_integrals
filter2p filter2p
filter2h2p_double filter2h2p_double
filter2h2p_single filter2h2p_single
@ -104,6 +105,11 @@ class H_apply(object):
s["do_mono_excitations"] = d[do_mono_exc] s["do_mono_excitations"] = d[do_mono_exc]
s["do_double_excitations"] = d[do_double_exc] s["do_double_excitations"] = d[do_double_exc]
s["keys_work"] += "call fill_H_apply_buffer_no_selection(key_idx,keys_out,N_int,iproc)" s["keys_work"] += "call fill_H_apply_buffer_no_selection(key_idx,keys_out,N_int,iproc)"
s["filter_integrals"] = "array_pairs = .True."
if SingleRef:
s["filter_integrals"] = """
call get_mo_bielec_integrals_existing_ik(i_a,j_a,mo_num,array_pairs,mo_integrals_map)
"""
s["generate_psi_guess"] = """ s["generate_psi_guess"] = """
! Sort H_jj to find the N_states lowest states ! Sort H_jj to find the N_states lowest states

9
src/determinants/h_apply.template.f
View File

@ -240,7 +240,10 @@ subroutine $subroutine_diexcOrg(key_in,key_mask,hole_1,particl_1,hole_2, particl
! hole = a^(+)_j_a(ispin) a_i_a(ispin)|key_in> : single exc :: orb(i_a,ispin) --> orb(j_a,ispin) ! hole = a^(+)_j_a(ispin) a_i_a(ispin)|key_in> : single exc :: orb(i_a,ispin) --> orb(j_a,ispin)
hole_save = hole hole_save = hole
if (ispin == 1) then ! Build array of the non-zero integrals of second excitation
$filter_integrals
if (ispin == 1) then
integer :: jjj integer :: jjj
i=0 i=0
@ -282,7 +285,7 @@ subroutine $subroutine_diexcOrg(key_in,key_mask,hole_1,particl_1,hole_2, particl
$only_1h_double $only_1h_double
$only_1p_double $only_1p_double
$only_2h1p_double $only_2h1p_double
$filter_only_connected_to_hf_double $filter_only_connected_to_hf_double
key_idx += 1 key_idx += 1
do k=1,N_int do k=1,N_int
keys_out(k,1,key_idx) = key(k,1) keys_out(k,1,key_idx) = key(k,1)
@ -494,7 +497,7 @@ subroutine $subroutine_monoexc(key_in, hole_1,particl_1,fock_diag_tmp,i_generato
$filter_only_1h1p_single $filter_only_1h1p_single
$filter_only_1h2p_single $filter_only_1h2p_single
$filter_only_2h2p_single $filter_only_2h2p_single
$filter_only_connected_to_hf_single $filter_only_connected_to_hf_single
key_idx += 1 key_idx += 1
do k=1,N_int do k=1,N_int
keys_out(k,1,key_idx) = hole(k,1) keys_out(k,1,key_idx) = hole(k,1)