Changeset 4536 for palm/trunk/SOURCE/message.f90
- Timestamp:
- May 17, 2020 5:24:13 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/message.f90
r4360 r4536 25 25 ! ----------------- 26 26 ! $Id$ 27 ! location message format changed 28 ! 29 ! 4360 2020-01-07 11:25:50Z suehring 27 30 ! Corrected "Former revisions" section 28 31 ! … … 264 267 ! 265 268 !-- Write and flush debug location or info message to file 266 WRITE( OUTPUT_UNIT, 200 ) TRIM( message_type_string ), location_string, TRIM( system_time ) 269 WRITE( OUTPUT_UNIT, 200 ) TRIM( system_time ), TRIM( message_type_string ), & 270 TRIM( location_string ) 267 271 FLUSH( OUTPUT_UNIT ) 268 272 ! 269 273 !-- Message formats 270 200 FORMAT ( 3X, A, ' ', A60, ' | System time: ', A )274 200 FORMAT ( 3X, A, 3x, A, 2X, A ) 271 275 272 276 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.