From 12e9c88d71fa949280e3165b5583eb2951b47f58 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Thu, 16 Apr 2020 09:06:29 -0500 Subject: [PATCH] fixed array size --- src/davidson/diagonalize_ci.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/davidson/diagonalize_ci.irp.f b/src/davidson/diagonalize_ci.irp.f index 740640c3..a72b3040 100644 --- a/src/davidson/diagonalize_ci.irp.f +++ b/src/davidson/diagonalize_ci.irp.f @@ -383,7 +383,7 @@ END_PROVIDER deallocate(s2_eigvalues) else 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 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))