Changeset 335 for palm/trunk/SOURCE/message.f90

Timestamp:

Jun 10, 2009 8:07:50 AM (15 years ago)

Author:

heinze

Message:

error in formatting of the output of message

File:

• palm/trunk/SOURCE/message.f90 (modified) (2 diffs)

palm/trunk/SOURCE/message.f90

@@ -118 +118 @@
           WRITE( *, '(4X,A)' )  TRIM( information_string_1 ) 
           WRITE( *, '(4X,A)' )  TRIM( information_string_2 ) 
+          WRITE( *, '(4X,A)' )  ''
 
        ELSE
@@ -135 +136 @@
           ENDDO
           WRITE( file_id, '(4X,A)' )  TRIM( message_string )
-          WRITE( *, '(4X,A)' )  ''
+          WRITE( file_id, '(4X,A)' )  ''
           WRITE( file_id, '(4X,A)' )  TRIM( information_string_1 ) 
           WRITE( file_id, '(4X,A)' )  TRIM( information_string_2 ) 
-          WRITE( *, '(4X,A)' )  ''
+          WRITE( file_id, '(4X,A)' )  ''
 !
 !--       Flush buffer, if requested