PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 04:43:45 +01:00
Code Releases Activity

clean eigenvectors in CI lapack diag

Browse Source
This commit is contained in:
Anthony Scemama 2020-11-11 12:24:32 +01:00
parent 95be88c7e7
commit 1b6abd2601
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/davidson/diagonalize_ci.irp.f
View File

@ -110,6 +110,7 @@ END_PROVIDER
H_prime(j,j) = H_prime(j,j) - alpha*expected_s2 H_prime(j,j) = H_prime(j,j) - alpha*expected_s2
enddo enddo
call lapack_diag(eigenvalues,eigenvectors,H_prime,size(H_prime,1),N_det) call lapack_diag(eigenvalues,eigenvectors,H_prime,size(H_prime,1),N_det)
call nullify_small_elements(N_det,N_det,eigenvectors,size(eigenvectors,1),1.d-12)
CI_electronic_energy(:) = 0.d0 CI_electronic_energy(:) = 0.d0
i_state = 0 i_state = 0
allocate (s2_eigvalues(N_det)) allocate (s2_eigvalues(N_det))