From: Adam Kazimierz Sieradzan <adasko@sun1.chem.univ.gda.pl>
Date: Tue, 17 Jun 2014 19:13:00 +0000 (-0400)
Subject: dalej wylaczona diagnostyka
X-Git-Tag: v.3.3.0~200^2
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;ds=inline;h=17b17e4c5bc0975b3cd0b1e65fb8e7aca9ffb5cf;p=unres.git

dalej wylaczona diagnostyka
---

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 20abf7d..8dde67d 100644
--- a/source/unres/src_MD-M/energy_p_new_barrier.F
+++ b/source/unres/src_MD-M/energy_p_new_barrier.F
@@ -739,7 +739,7 @@ c#undef DEBUG
         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
+c#define DEBUG
 #ifdef DEBUG
       write (iout,*) "gloc_sc after reduce"
       do i=1,nres
@@ -748,7 +748,7 @@ c#undef DEBUG
        enddo
       enddo
 #endif
-#undef DEBUG
+c#undef DEBUG
 #ifdef DEBUG
       write (iout,*) "gloc after reduce"
       do i=1,4*nres