Changeset 277 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Mar 31, 2009 9:13:47 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r274 r277 126 126 WRITE( message_string, * ) 'opening file-id ',file_id, & 127 127 ' 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 ) 129 129 ENDIF 130 130 … … 135 135 WRITE( message_string, * ) 'opening file-id ',file_id, & 136 136 ' 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 ) 138 138 END IF 139 139 ENDIF … … 1244 1244 1245 1245 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 ) 1247 1247 1248 1248 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.