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

Timestamp:

Sep 14, 2018 9:42:06 AM (6 years ago)

Author:

sward

Message:

Minor format changes

File:

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

palm/trunk/SOURCE/message.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor formating changes
+! 
+! 3247 2018-09-14 07:06:30Z sward
 ! Subroutine description updated and parin_fail_message now also outputs
 ! the line number in which namelist reading failed
@@ -323 +326 @@
 
     REWIND( 11 )
-    DO   WHILE ( INDEX( line_dum, TRIM(line) ) == 0 )
-         READ ( 11, '(A)', END=20 )  line_dum
-         line_counter = line_counter + 1
+    DO WHILE ( INDEX( line_dum, TRIM(line) ) == 0 )
+       READ ( 11, '(A)', END=20 )  line_dum
+       line_counter = line_counter + 1
     ENDDO
 
@@ -332 +335 @@
                    '&Reading fails on line ', line_counter,                    &
                    ' at&' // line
-          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
+    CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
 
  END SUBROUTINE parin_fail_message