Ignore:
Timestamp:
Jun 10, 2009 8:07:50 AM (12 years ago)
Author:
heinze
Message:

error in formatting of the output of message

File:
1 edited

Legend:

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

    r329 r335  
    118118          WRITE( *, '(4X,A)' )  TRIM( information_string_1 )
    119119          WRITE( *, '(4X,A)' )  TRIM( information_string_2 )
     120          WRITE( *, '(4X,A)' )  ''
    120121
    121122       ELSE
     
    135136          ENDDO
    136137          WRITE( file_id, '(4X,A)' )  TRIM( message_string )
    137           WRITE( *, '(4X,A)' )  ''
     138          WRITE( file_id, '(4X,A)' )  ''
    138139          WRITE( file_id, '(4X,A)' )  TRIM( information_string_1 )
    139140          WRITE( file_id, '(4X,A)' )  TRIM( information_string_2 )
    140           WRITE( *, '(4X,A)' )  ''
     141          WRITE( file_id, '(4X,A)' )  ''
    141142!
    142143!--       Flush buffer, if requested
Note: See TracChangeset for help on using the changeset viewer.