LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-07 14:03:37 +01:00
Code Releases Activity

fixed wrong type

Browse Source
This commit is contained in:
Kevin Gasperich 2020-07-29 14:12:38 -05:00
parent a982101a7f
commit ff9760b136
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/diagonalize_ci.irp.f
View File

@ -313,7 +313,7 @@ END_PROVIDER
H_prime(j,j) = H_prime(j,j) + alpha*(s_z2_sz - expected_s2) H_prime(j,j) = H_prime(j,j) + alpha*(s_z2_sz - expected_s2)
enddo enddo
call lapack_diag_complex(eigenvalues,eigenvectors,H_prime,size(H_prime,1),N_det) call lapack_diag_complex(eigenvalues,eigenvectors,H_prime,size(H_prime,1),N_det)
ci_electronic_energy_complex(:) = (0.d0,0.d0) ci_electronic_energy_complex(:) = 0.d0
i_state = 0 i_state = 0
allocate (s2_eigvalues(N_det)) allocate (s2_eigvalues(N_det))
allocate(index_good_state_array(N_det),good_state_array(N_det)) allocate(index_good_state_array(N_det),good_state_array(N_det))