Changeset 809 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jan 30, 2012 1:32:58 PM (12 years ago)

Author:

maronga

Message:

Bugfix: cpp directives .NOT., .AND. replaced by !,&&. Minor bugfixes in mrungui

File:

• palm/trunk/SOURCE/modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
 !
 ! Former revisions:
@@ -1262 +1262 @@
 !------------------------------------------------------------------------------!
 
-#if defined( __parallel ) .AND. .NOT. defined ( __check )
+#if defined( __parallel ) && ! defined ( __check )
 #if defined( __lc )
     USE MPI
@@ -1294 +1294 @@
     INTEGER ::  ibuf(12), pcoord(2), pdims(2)
 
-#if .NOT. defined ( __check )
+#if ! defined ( __check )
     INTEGER ::  status(MPI_STATUS_SIZE)
 #endif