LCPQ
/
qp2
mirror of https://github.com/QuantumPackage/qp2.git
9
1
Fork 0
Code Releases Activity

added provider for total ref bitmask energy (with nuc. repulsion)

This commit is contained in:
Kevin Gasperich 2020-04-07 14:28:32 -05:00
parent f32dc836a8
commit b41e556b9d
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/cipsi/cipsi.irp.f
View File

@ -44,7 +44,7 @@ subroutine run_cipsi
if (has) then
call ezfio_get_hartree_fock_energy(hf_energy_ref)
else
hf_energy_ref = ref_bitmask_energy
hf_energy_ref = ref_bitmask_energy_with_nucl_rep
endif
if (N_det > N_det_max) then

2
src/cipsi/stochastic_cipsi.irp.f
View File

@ -47,7 +47,7 @@ subroutine run_stochastic_cipsi
if (has) then
call ezfio_get_hartree_fock_energy(hf_energy_ref)
else
hf_energy_ref = ref_bitmask_energy
hf_energy_ref = ref_bitmask_energy_with_nucl_rep
endif
if (N_det > N_det_max) then

3
src/determinants/ref_bitmask.irp.f
View File

@ -6,6 +6,7 @@
&BEGIN_PROVIDER [ double precision, ref_bitmask_energy_ab ]
&BEGIN_PROVIDER [ double precision, ref_bitmask_energy_bb ]
&BEGIN_PROVIDER [ double precision, ref_bitmask_energy_aa ]
&BEGIN_PROVIDER [ double precision, ref_bitmask_energy_with_nucl_rep ]
use bitmasks
implicit none
@ -80,7 +81,7 @@
enddo
ref_bitmask_energy_bb = ref_bitmask_energy_bb * 0.5d0
ref_bitmask_energy_with_nucl_rep = ref_bitmask_energy + nuclear_repulsion
END_PROVIDER