LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-10 13:08:23 +01:00
Code Issues Releases Wiki Activity

Misplaced deallocate

Browse Source
This commit is contained in:
Anthony Scemama 2016-06-20 17:39:55 +02:00
parent 2d0c39edc9
commit c707f3fee0
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/Determinants/diagonalize_CI.irp.f
View File

@ -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) 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 CI_electronic_energy(i_state + i_other_state) = e_0
enddo enddo
deallocate(index_good_state_array,good_state_array)
else else
@ -247,7 +248,6 @@ END_PROVIDER
deallocate(e_array,iorder) deallocate(e_array,iorder)
endif endif
deallocate(s2_eigvalues) deallocate(s2_eigvalues)
deallocate(index_good_state_array,good_state_array)
endif endif