Ignore:
Timestamp:
Sep 14, 2018 9:42:06 AM (3 years ago)
Author:
sward
Message:

Minor format changes

File:
1 edited

Legend:

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

    r3246 r3248  
    2525! -----------------
    2626! $Id$
     27! Minor formating changes
     28!
     29! 3246 2018-09-13 15:14:50Z sward
    2730! Added error handling for input namelist via parin_fail_message
    2831!
     
    142145
    143146    line = ' '
    144     DO   WHILE ( INDEX( line, '&user_parameters' ) == 0 )
     147    DO WHILE ( INDEX( line, '&user_parameters' ) == 0 )
    145148       READ ( 11, '(A)', END=12 )  line
    146149    ENDDO
     
    156159
    15716010  BACKSPACE( 11 )
    158     READ( 11 ,fmt='(A)') line
    159     CALL parin_fail_message ( 'user_parameters', line )
     161    READ( 11 , '(A)') line
     162    CALL parin_fail_message( 'user_parameters', line )
    160163
    16116412  REWIND ( 11 )
    162165
    163166    line = ' '
    164     DO   WHILE ( INDEX( line, '&userpar' ) == 0 )
     167    DO WHILE ( INDEX( line, '&userpar' ) == 0 )
    165168       READ ( 11, '(A)', END=14 )  line
    166169    ENDDO
     
    181184
    18218513  BACKSPACE( 11 )
    183     READ( 11 ,fmt='(A)') line
    184     CALL parin_fail_message ( 'userpar', line )
    185 
    186 14 CONTINUE
     186    READ( 11 , '(A)') line
     187    CALL parin_fail_message( 'userpar', line )
     188
     18914  CONTINUE
    187190
    188191!
     
    192195       IF ( data_output_pr_user(1) /= ' ' )  THEN
    193196          i = 1
    194           DO  WHILE ( data_output_pr(i) /= ' '  .AND.  i <= 100 )
     197          DO WHILE ( data_output_pr(i) /= ' '  .AND.  i <= 100 )
    195198             i = i + 1
    196199          ENDDO
    197200          j = 1
    198           DO  WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 100 )
     201          DO WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 100 )
    199202             data_output_pr(i) = data_output_pr_user(j)
    200203             max_pr_user_tmp   = max_pr_user_tmp + 1
Note: See TracChangeset for help on using the changeset viewer.