Ignore:
Timestamp:
Mar 31, 2009 9:13:47 AM (12 years ago)
Author:
heinze
Message:

Change of arguments in message calls whenever there are errors induced by MPI-ABORT

File:
1 edited

Legend:

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

    r274 r277  
    126126             WRITE( message_string, * ) 'opening file-id ',file_id, &
    127127                                        ' not allowed for PE ',myid
    128              CALL message( 'check_open', 'PA0167', 2, 2, 0, 6, 0 )
     128             CALL message( 'check_open', 'PA0167', 2, 2, -1, 6, 1 )
    129129          ENDIF
    130130
     
    135135                WRITE( message_string, * ) 'opening file-id ',file_id, &
    136136                                           ' not allowed for PE ',myid
    137                 CALL message( 'check_open', 'PA0167', 2, 2, 0, 6, 0 )
     137                CALL message( 'check_open', 'PA0167', 2, 2, -1, 6, 1 )
    138138             END IF
    139139          ENDIF
     
    12441244
    12451245          WRITE( message_string, * ) 'no OPEN-statement for file-id ',file_id
    1246           CALL message( 'check_open', 'PA0172', 2, 2, 0, 6, 0 )
     1246          CALL message( 'check_open', 'PA0172', 2, 2, -1, 6, 1 )
    12471247
    12481248    END SELECT
Note: See TracChangeset for help on using the changeset viewer.