From 1606659deecc011a796adf776369c5560fbd1f45 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Wed, 14 Oct 2015 18:24:45 +0200 Subject: [PATCH] switch off debugging in src_MD-M --- 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 0d79c83..eb1cbd4 100644 --- a/source/unres/src_MD-M/energy_p_new_barrier.F +++ b/source/unres/src_MD-M/energy_p_new_barrier.F @@ -718,7 +718,7 @@ c enddo do i=1,4*nres glocbuf(i)=gloc(i,icg) enddo -#define DEBUG +#undef DEBUG #ifdef DEBUG write (iout,*) "gloc_sc before reduce" do i=1,nres @@ -747,7 +747,7 @@ c enddo call MPI_Reduce(gloc_scbuf(1,1),gloc_sc(1,1,icg),3*nres, & MPI_DOUBLE_PRECISION,MPI_SUM,king,FG_COMM,IERR) time_reduce=time_reduce+MPI_Wtime()-time00 -#define DEBUG +#undef DEBUG #ifdef DEBUG write (iout,*) "gloc_sc after reduce" do i=1,nres -- 1.7.9.5