Ignore:
Timestamp:
Jan 30, 2012 1:32:58 PM (10 years ago)
Author:
maronga
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_open.f90

    r808 r809  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
    77!
    88! Former revisions:
     
    120120    IF ( openfile(file_id)%opened )  RETURN
    121121
    122 #if .NOT. defined ( __check )
     122#if ! defined ( __check )
    123123!
    124124!-- Only certain files are allowed to be re-opened
     
    240240                CALL local_system( 'mkdir  BINOUT' // coupling_char )
    241241             ENDIF
    242 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     242#if defined( __parallel ) && ! defined ( __check )
    243243!
    244244!--          Set a barrier in order to allow that all other processors in the
     
    279279                        FORM='UNFORMATTED', POSITION='APPEND' )
    280280          ELSE
    281 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     281#if defined( __parallel ) && ! defined ( __check )
    282282!
    283283!--          Set a barrier in order to allow that all other processors in the
     
    660660                CALL local_system( 'mkdir  PARTICLE_INFOS' // coupling_char )
    661661             ENDIF
    662 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     662#if defined( __parallel ) && ! defined ( __check )
    663663!
    664664!--          Set a barrier in order to allow that thereafter all other
     
    709709                CALL local_system( 'mkdir  PARTICLE_DATA' // coupling_char )
    710710             ENDIF
    711 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     711#if defined( __parallel ) && ! defined ( __check )
    712712!
    713713!--          Set a barrier in order to allow that thereafter all other
     
    13121312                                       TRIM( coupling_char ) // '/' )
    13131313                ENDIF
    1314 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     1314#if defined( __parallel ) && ! defined ( __check )
    13151315!
    13161316!--             Set a barrier in order to allow that all other processors in the
Note: See TracChangeset for help on using the changeset viewer.