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

Timestamp:

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

Author:

maronga

Message:

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

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (7 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
 !
 ! Former revisions:
@@ -120 +120 @@
     IF ( openfile(file_id)%opened )  RETURN
 
-#if .NOT. defined ( __check )
+#if ! defined ( __check )
 !
 !-- Only certain files are allowed to be re-opened
@@ -240 +240 @@
                 CALL local_system( 'mkdir  BINOUT' // coupling_char )
              ENDIF
-#if defined( __parallel ) .AND. .NOT. defined ( __check )
+#if defined( __parallel ) && ! defined ( __check )
 !
 !--          Set a barrier in order to allow that all other processors in the 
@@ -279 +279 @@
                         FORM='UNFORMATTED', POSITION='APPEND' )
           ELSE
-#if defined( __parallel ) .AND. .NOT. defined ( __check )
+#if defined( __parallel ) && ! defined ( __check )
 !
 !--          Set a barrier in order to allow that all other processors in the 
@@ -660 +660 @@
                 CALL local_system( 'mkdir  PARTICLE_INFOS' // coupling_char )
              ENDIF
-#if defined( __parallel ) .AND. .NOT. defined ( __check )
+#if defined( __parallel ) && ! defined ( __check )
 !
 !--          Set a barrier in order to allow that thereafter all other
@@ -709 +709 @@
                 CALL local_system( 'mkdir  PARTICLE_DATA' // coupling_char )
              ENDIF
-#if defined( __parallel ) .AND. .NOT. defined ( __check )
+#if defined( __parallel ) && ! defined ( __check )
 !
 !--          Set a barrier in order to allow that thereafter all other
@@ -1312 +1312 @@
                                        TRIM( coupling_char ) // '/' )
                 ENDIF
-#if defined( __parallel ) .AND. .NOT. defined ( __check )
+#if defined( __parallel ) && ! defined ( __check )
 ! 
 !--             Set a barrier in order to allow that all other processors in the