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:
parent
d83c9d3712
commit
5b942e2db0
@ -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
|
||||
|
@ -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)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user