switch off debugging in src_MD-M
authorCezary Czaplewski <czarek@chem.univ.gda.pl>
Wed, 14 Oct 2015 16:24:45 +0000 (18:24 +0200)
committerCezary Czaplewski <czarek@chem.univ.gda.pl>
Wed, 14 Oct 2015 16:24:45 +0000 (18:24 +0200)
source/unres/src_MD-M/energy_p_new_barrier.F

index 0d79c83..eb1cbd4 100644 (file)
@@ -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