LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-22 18:57:31 +02:00
Code Issues Releases Wiki Activity

Corrected S2 in davidson

Browse Source
This commit is contained in:
Anthony Scemama 2016-09-29 22:34:40 +02:00
parent e3114aa566
commit 7219dda33b
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/Davidson/diagonalization_hs2.irp.f
View File

@ -270,7 +270,7 @@ subroutine davidson_diag_hjj_sjj(dets_in,u_in,H_jj,S2_jj,energies,dim_in,sze,N_s
! -----------------------
do k=1,N_st_diag
s2(k) = u_dot_v(U(1,k,iter+1), S(1,k,iter+1), sze)
s2(k) = u_dot_v(U(1,k,iter+1), S(1,k,iter+1), sze) + S_z2_Sz
enddo
do k=1,N_st_diag