LCPQ
/
quack
mirror of https://github.com/pfloos/quack
4
1
Fork 0
Code Releases Activity

fixed bug in S^2

This commit is contained in:
Abdallah Ammar 2023-11-17 11:58:55 +01:00
parent 1e21d8ff56
commit 1803f1d454
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/HF/print_GHF.f90
View File

@ -272,7 +272,7 @@ subroutine print_GHFspin(nBas, nBas2, nO, C, S)
Sz = 0.5d0 * (Na - Nb)
Sz2 = Sz*Sz + nonco_z
S2 = 0.5d0 * (Na + Nb) * (Sz + 1.d0) + nonco_z + contam_ghf
S2 = Sz2 + 0.5d0 * (Na + Nb) + contam_ghf
print *, 'Sz, Sz^2 = ', Sz, Sz2
print *, 'S^2 = ', S2