mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-26 06:21:45 +02:00
removed useless computation of intermediate checkpoints
This commit is contained in:
parent
4ba5b79eb3
commit
8df49f394b
@ -112,20 +112,6 @@ subroutine run_dress_slave(thread,iproce,energy)
|
|||||||
!$OMP END CRITICAL
|
!$OMP END CRITICAL
|
||||||
|
|
||||||
if(will_send /= 0 .and. will_send <= int(ending(1))) then
|
if(will_send /= 0 .and. will_send <= int(ending(1))) then
|
||||||
breve_delta_m = 0d0
|
|
||||||
|
|
||||||
do l=will_send, 1,-1
|
|
||||||
breve_delta_m(:,:,1) += cp(:,:,l,1)
|
|
||||||
breve_delta_m(:,:,2) += cp(:,:,l,2)
|
|
||||||
end do
|
|
||||||
|
|
||||||
breve_delta_m(:,:,:) = breve_delta_m(:,:,:) / dress_M_m(will_send)
|
|
||||||
|
|
||||||
do t=dress_dot_t(will_send)-1,0,-1
|
|
||||||
breve_delta_m(:,:,1) = breve_delta_m(:,:,1) + delta_det(:,:,t,1)
|
|
||||||
breve_delta_m(:,:,2) = breve_delta_m(:,:,2) + delta_det(:,:,t,2)
|
|
||||||
end do
|
|
||||||
|
|
||||||
call omp_set_lock(sending)
|
call omp_set_lock(sending)
|
||||||
n_tasks = 0
|
n_tasks = 0
|
||||||
sum_f = 0
|
sum_f = 0
|
||||||
|
Loading…
Reference in New Issue
Block a user