From 8df49f394b588ca304ce2ee7d8f8095455573784 Mon Sep 17 00:00:00 2001 From: Yann Garniron Date: Sun, 2 Sep 2018 15:58:48 +0200 Subject: [PATCH] removed useless computation of intermediate checkpoints --- plugins/dress_zmq/run_dress_slave.irp.f | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/plugins/dress_zmq/run_dress_slave.irp.f b/plugins/dress_zmq/run_dress_slave.irp.f index 5f53b7fc..b3341093 100644 --- a/plugins/dress_zmq/run_dress_slave.irp.f +++ b/plugins/dress_zmq/run_dress_slave.irp.f @@ -112,20 +112,6 @@ subroutine run_dress_slave(thread,iproce,energy) !$OMP END CRITICAL 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) n_tasks = 0 sum_f = 0