PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-14 10:03:47 +01:00
Code Releases Activity

fixed array size

Browse Source
This commit is contained in:
Kevin Gasperich 2020-04-16 09:06:29 -05:00
parent 29752ccb60
commit 12e9c88d71
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

@ -383,7 +383,7 @@ END_PROVIDER
deallocate(s2_eigvalues) deallocate(s2_eigvalues)
else else
call lapack_diag_complex(eigenvalues,eigenvectors, & call lapack_diag_complex(eigenvalues,eigenvectors, &
H_matrix_all_dets_complex,size(H_matrix_all_dets,1),N_det) H_matrix_all_dets_complex,size(H_matrix_all_dets_complex,1),N_det)
ci_electronic_energy_complex(:) = 0.d0 ci_electronic_energy_complex(:) = 0.d0
call u_0_S2_u_0_complex(ci_s2_complex,eigenvectors,N_det,psi_det,N_int,& call u_0_S2_u_0_complex(ci_s2_complex,eigenvectors,N_det,psi_det,N_int,&
min(N_det,N_states_diag),size(eigenvectors,1)) min(N_det,N_states_diag),size(eigenvectors,1))