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

added condition in lccsd
Some checks failed
continuous-integration/drone/push Build is failing
Details

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 print*,'ecorr = ',ecorr
Dress_jj(1) = 0.d0 Dress_jj(1) = 0.d0
do i = 2, N_det 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 enddo
eafter = lccsd_energies(1) eafter = lccsd_energies(1)
converged = (dabs(eafter - ebefore).lt.thresh) converged = (dabs(eafter - ebefore).lt.thresh)