X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcompare.F90;h=37d1690003de200c765724f8f330593d92846d57;hb=2611e37f82b576a1366c2d78fce87c1a55852037;hp=b65e57cb7a73c5ab657bfdb6c02de28a79f4d6db;hpb=a1e9d5a6b704c90ebd10f86a655780212a880dce;p=unres4.git

diff --git a/source/unres/compare.F90 b/source/unres/compare.F90
index b65e57c..37d1690 100644
--- a/source/unres/compare.F90
+++ b/source/unres/compare.F90
@@ -5,7 +5,7 @@
       use geometry_data
       use energy_data
       use control_data
-#if .not. defined WHAM_RUN && .not. defined CLUSTER
+#if !defined(WHAM_RUN) && !defined(CLUSTER)
       use compare_data
       use io_base
       use io_config
@@ -21,7 +21,7 @@
 !
 !-----------------------------------------------------------------------------
       contains
-#if .not. defined WHAM_RUN && .not. defined CLUSTER
+#if !defined(WHAM_RUN) && !defined(CLUSTER)
 !-----------------------------------------------------------------------------
 ! contact.f
 !-----------------------------------------------------------------------------