From c707f3fee0e9498ccf19619a7fcdda7a952ca085 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 20 Jun 2016 17:39:55 +0200 Subject: [PATCH] Misplaced deallocate --- src/Determinants/diagonalize_CI.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Determinants/diagonalize_CI.irp.f b/src/Determinants/diagonalize_CI.irp.f index 17943f43..d4716b86 100644 --- a/src/Determinants/diagonalize_CI.irp.f +++ b/src/Determinants/diagonalize_CI.irp.f @@ -225,6 +225,7 @@ END_PROVIDER call u0_H_u_0(e_0,CI_eigenvectors(1,i_state + i_other_state),n_det,psi_det,N_int) CI_electronic_energy(i_state + i_other_state) = e_0 enddo + deallocate(index_good_state_array,good_state_array) else @@ -247,7 +248,6 @@ END_PROVIDER deallocate(e_array,iorder) endif deallocate(s2_eigvalues) - deallocate(index_good_state_array,good_state_array) endif