mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 05:51:46 +02:00
Cleaning
This commit is contained in:
parent
4f0a90bf6a
commit
2b1d6bc9fc
@ -141,10 +141,7 @@ subroutine ZMQ_pt2(E, pt2,relative_error, absolute_error, error)
|
|||||||
|
|
||||||
deallocate(pt2_detail, comb, computed, tbc)
|
deallocate(pt2_detail, comb, computed, tbc)
|
||||||
enddo
|
enddo
|
||||||
pt2_stoch_istate = 1
|
FREE psi_average_norm_contrib pt2_stoch_istate
|
||||||
w(:) = 1.d0/N_states
|
|
||||||
call update_psi_average_norm_contrib(w)
|
|
||||||
SOFT_TOUCH psi_average_norm_contrib
|
|
||||||
endif
|
endif
|
||||||
do k=N_det+1,N_states
|
do k=N_det+1,N_states
|
||||||
pt2(k) = 0.d0
|
pt2(k) = 0.d0
|
||||||
|
Loading…
Reference in New Issue
Block a user