LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-04 05:03:54 +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)
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