X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcontrol.F90;h=ba3ddd3f8a023bb45be23796355bec56d58dfbe6;hb=19132b2d2e7b68a45b6f8fee027c7dbcc8198b86;hp=8d22bf0e21820a63bf10ad79613e9b2b7d96e2bc;hpb=df0d15d1ab81e01e177d3d39354e72364b294e1c;p=unres4.git

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 8d22bf0..ba3ddd3 100644
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -123,7 +123,7 @@
 !local variables el
       integer :: i,j,k,l,ichir1,ichir2,iblock,m,maxit
 
-#if .not. defined(WHAM_RUN) && .not. defined(CLUSTER)
+!#if .not. defined(WHAM_RUN) && .not. defined(CLUSTER)
       mask_r=.false.
 #ifndef ISNAN
 ! NaNQ initialization
@@ -136,6 +136,7 @@
 #endif
 #endif
 
+#if !defined(WHAM_RUN) && !defined(CLUSTER)
       kdiag=0
       icorfl=0
       iw=2
@@ -1732,7 +1733,7 @@
 !     timlim=batime-150.0
 ! Calculate the initial time, if it is not zero (e.g. for the SUN).
       stime=tcpu()
-#if .not. defined(WHAM_RUN) && .not. defined(CLUSTER)
+#if !defined(WHAM_RUN) && !defined(CLUSTER)
 #ifdef MPI
       walltime=MPI_WTIME()
       time_reduce=0.0d0