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

Memory leak fixed in 4idx

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Davidson/diagonalize_restart_and_save_lowest_state.irp.f
View File

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

2
src/FourIdx/four_index_block.irp.f
View File

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