Removing warnings (ifort)
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 20 Feb 2007 20:59:45 +0000 (20:59 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 20 Feb 2007 20:59:45 +0000 (20:59 +0000)
MEVSIM/multiplicity_gen.F

index 8d98273..b46ebae 100644 (file)
@@ -1,7 +1,9 @@
 #ifdef __APPLE__
+#ifndef __INTEL_COMPILER
 #define STOP CALL EXIT !
 #define stop CALL EXIT !
 #endif
+#endif
       subroutine ah
       STOP
       end