From: Adam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Date: Tue, 26 May 2015 12:40:36 +0000 (+0200)
Subject: Cluster debug ON
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=38e6ef0a0f35a33d5e094b7b2ad8776da0b7bdb2

Cluster debug ON
---

diff --git a/source/cluster/wham/src-M/probabl.F b/source/cluster/wham/src-M/probabl.F
index 543422a..0c45402 100644
--- a/source/cluster/wham/src-M/probabl.F
+++ b/source/cluster/wham/src-M/probabl.F
@@ -263,12 +263,12 @@ c          write (iout,*) i,fdimless(i)
       WRITE (iout,*) "Wchodze do call mysort1"
         call mysort1(ncon,Fdimless,list_conf)
       WRITE (iout,*) "Wychodze z call mysort1"
-#ifdef DEBUG
+C#ifdef DEBUG
         write (iout,*) "The FDIMLESS array after sorting"
         do i=1,ncon
           write (iout,*) i,list_conf(i),fdimless(i)
         enddo
-#endif
+c#endif
       WRITE (iout,*) "Wchodze do petli i=1,ncon totfree(i)=fdimless(i)"
         do i=1,ncon
           totfree(i)=fdimless(i)