PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-04 13:13:53 +01:00
Code Releases Activity

added condition in lccsd

Browse Source
This commit is contained in:
eginer 2023-08-09 16:59:47 +02:00
parent 0440def363
commit 1a2632c280
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/cisd/lccsd_prov.irp.f
View File

@ -31,7 +31,9 @@
print*,'ecorr = ',ecorr
Dress_jj(1) = 0.d0
do i = 2, N_det
Dress_jj(i) = ecorr
if(ecorr + H_jj(i) .gt. H_jj(1))then
Dress_jj(i) = ecorr
endif
enddo
eafter = lccsd_energies(1)
converged = (dabs(eafter - ebefore).lt.thresh)