mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-23 04:43:45 +01:00
minor modifs in cipsi_tc_bi_ortho/selection.irp.f
This commit is contained in:
parent
e0af6d8425
commit
64523de3ae
@ -960,7 +960,7 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d
|
|||||||
! endif
|
! endif
|
||||||
e_pert(istate) = 0.25 * val / delta_E
|
e_pert(istate) = 0.25 * val / delta_E
|
||||||
! e_pert(istate) = 0.5d0 * (tmp - delta_E)
|
! e_pert(istate) = 0.5d0 * (tmp - delta_E)
|
||||||
if(dsqrt(dabs(tmp)).gt.1.d-4.and.dabs(alpha_h_psi).gt.1.d-4)then
|
if(dsqrt(tmp).gt.1.d-4.and.dabs(psi_h_alpha).gt.1.d-4)then
|
||||||
coef(istate) = e_pert(istate) / psi_h_alpha
|
coef(istate) = e_pert(istate) / psi_h_alpha
|
||||||
else
|
else
|
||||||
coef(istate) = alpha_h_psi / delta_E
|
coef(istate) = alpha_h_psi / delta_E
|
||||||
|
Loading…
Reference in New Issue
Block a user