Removing warnings (ifort)
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 20 Feb 2007 20:47:11 +0000 (20:47 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 20 Feb 2007 20:47:11 +0000 (20:47 +0000)
HIJING/hijing/ludat1_hijing.inc
PYTHIA6/openDecayTable.F

index 5e1e694..c33f438 100644 (file)
@@ -1,7 +1,9 @@
 #ifdef __APPLE__
+#ifndef __INTEL_COMPILER
 #define STOP CALL EXIT !
 #define stop CALL EXIT !
 #endif
+#endif
 * $Id$
       REAL PARU, PARJ
       COMMON/LUDAT1_HIJING/MSTU(200),PARU(200),MSTJ(200),PARJ(200) 
index 2f71ea1..8666976 100644 (file)
@@ -1,7 +1,9 @@
 #ifdef __APPLE__
+#ifndef __INTEL_COMPILER
 #define stop CALL EXIT !
 #define STOP CALL EXIT !
 #endif
+#endif
       SUBROUTINE OPENDECAYTABLE(LUN)
       LOGICAL OPENED,EXISTS
       LOGICAL LRMSCH, LRD1O2, LTRASP