mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 14:01:46 +02:00
Corrected S2 in davidson
This commit is contained in:
parent
e3114aa566
commit
7219dda33b
@ -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
|
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
|
enddo
|
||||||
|
|
||||||
do k=1,N_st_diag
|
do k=1,N_st_diag
|
||||||
|
Loading…
Reference in New Issue
Block a user