10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00

Memory leak fixed in 4idx

This commit is contained in:
Anthony Scemama 2017-11-17 11:41:47 +01:00
parent d83c9d3712
commit 5b942e2db0
2 changed files with 5 additions and 1 deletions

View File

@ -8,6 +8,10 @@ end
subroutine routine
implicit none
print*,'N_det = ',N_det
PROVIDE H_apply_buffer_allocated
if (s2_eig) then
call make_s2_eigenfunction
endif
call diagonalize_CI
integer :: igood_state
igood_state=1

View File

@ -289,7 +289,7 @@ subroutine four_index_transform_block(map_a,map_c,matrix_B,LDB, &
enddo
!$OMP END DO
deallocate(key,value,V,T)
deallocate(key,value,V,T,T2d,V2d,U)
!$OMP END PARALLEL
call map_merge(map_c)