From f7c3c8c85f9f16c7005cbf0fa71246247a9317c5 Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Thu, 21 Apr 2016 10:27:22 +0200 Subject: [PATCH] debug off --- source/unres/src_MD-M/energy_p_new_barrier.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/unres/src_MD-M/energy_p_new_barrier.F b/source/unres/src_MD-M/energy_p_new_barrier.F index 934bfb9..03bc765 100644 --- a/source/unres/src_MD-M/energy_p_new_barrier.F +++ b/source/unres/src_MD-M/energy_p_new_barrier.F @@ -475,11 +475,11 @@ cMS$ATTRIBUTES C :: proc_proc time00=MPI_Wtime() call MPI_Reduce(enebuff(0),energia(0),n_ene+1, & MPI_DOUBLE_PRECISION,MPI_SUM,king,FG_COMM,IERR) -C#ifdef DEBUG +#ifdef DEBUG write (iout,*) "energies after REDUCE" call enerprint(energia) call flush(iout) -C#endif +#endif time_Reduce=time_Reduce+MPI_Wtime()-time00 endif if (fg_rank.eq.0) then -- 1.7.9.5