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

Timestamp:

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

Author:

sward

Message:

Minor format changes

File:

• palm/trunk/SOURCE/user_parin.f90 (modified) (5 diffs)

palm/trunk/SOURCE/user_parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor formating changes
+! 
+! 3246 2018-09-13 15:14:50Z sward
 ! Added error handling for input namelist via parin_fail_message
 ! 
@@ -142 +145 @@
 
     line = ' '
-    DO   WHILE ( INDEX( line, '&user_parameters' ) == 0 )
+    DO WHILE ( INDEX( line, '&user_parameters' ) == 0 )
        READ ( 11, '(A)', END=12 )  line
     ENDDO
@@ -156 +159 @@
 
 10  BACKSPACE( 11 )
-    READ( 11 ,fmt='(A)') line
-    CALL parin_fail_message ( 'user_parameters', line )
+    READ( 11 , '(A)') line
+    CALL parin_fail_message( 'user_parameters', line )
 
 12  REWIND ( 11 )
 
     line = ' ' 
-    DO   WHILE ( INDEX( line, '&userpar' ) == 0 )
+    DO WHILE ( INDEX( line, '&userpar' ) == 0 )
        READ ( 11, '(A)', END=14 )  line
     ENDDO
@@ -181 +184 @@
 
 13  BACKSPACE( 11 )
-    READ( 11 ,fmt='(A)') line
-    CALL parin_fail_message ( 'userpar', line )
-
-14 CONTINUE
+    READ( 11 , '(A)') line
+    CALL parin_fail_message( 'userpar', line )
+
+14  CONTINUE
 
 !
@@ -192 +195 @@
        IF ( data_output_pr_user(1) /= ' ' )  THEN
           i = 1
-          DO  WHILE ( data_output_pr(i) /= ' '  .AND.  i <= 100 )
+          DO WHILE ( data_output_pr(i) /= ' '  .AND.  i <= 100 )
              i = i + 1
           ENDDO
           j = 1
-          DO  WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 100 )
+          DO WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 100 )
              data_output_pr(i) = data_output_pr_user(j)
              max_pr_user_tmp   = max_pr_user_tmp + 1