Changeset 2514 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Oct 4, 2017 9:52:37 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r2512 r2514 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Remove tabs 23 23 ! 24 24 ! Former revisions: … … 228 228 229 229 CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109, 117 ) 230 230 231 231 IF ( myid /= 0 ) THEN 232 232 WRITE( message_string, * ) 'opening file-id ',file_id, & … … 244 244 CALL message( 'check_open', 'PA0167', 2, 2, -1, 6, 1 ) 245 245 ENDIF 246 246 247 247 ENDIF 248 248
Note: See TracChangeset
for help on using the changeset viewer.