X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fprobabl.F;h=0c4540267d9631f3bb67396ae232317194e1c690;hb=38e6ef0a0f35a33d5e094b7b2ad8776da0b7bdb2;hp=543422a35f71d8c3df6be90f043ad1134e253206;hpb=dd88fb4db4946bb579a66ab65dc1213cb33ec12a;p=unres.git

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)