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 8d98273b608f460b9423b94d5bbfcadd4af3e689..b46ebaecb4136326262723453cb308191a8e5e95 100644 (file)
@@ -1,6 +1,8 @@
 #ifdef __APPLE__
+#ifndef __INTEL_COMPILER
 #define STOP CALL EXIT !
 #define stop CALL EXIT !
+#endif
 #endif
       subroutine ah
       STOP