From 38e6ef0a0f35a33d5e094b7b2ad8776da0b7bdb2 Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Tue, 26 May 2015 14:40:36 +0200 Subject: [PATCH] Cluster debug ON --- source/cluster/wham/src-M/probabl.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.9.5