LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-17 18:15:17 +02:00
Code Releases Activity

Fixed rPT2 broken in prev commit

Browse Source
This commit is contained in:
Anthony Scemama 2020-11-08 16:15:32 +01:00
parent b0f85476fe
commit 9f49da3936
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -835,7 +835,7 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d
alpha_h_psi = mat(istate, p1, p2)
do jstate=1,N_states
pt2_data % overlap(jstate,istate) += coef(jstate) * alpha_h_psi
pt2_data % overlap(jstate,istate) += coef(jstate) * coef(istate)
enddo
pt2_data % variance(istate) += alpha_h_psi * alpha_h_psi