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/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!
     
    789792         
    790793 10       BACKSPACE( 11 )
    791           READ( 11 ,fmt='(A)') line
    792           CALL parin_fail_message ( 'initialization_parameters', line )
     794          READ( 11 , '(A)') line
     795          CALL parin_fail_message( 'initialization_parameters', line )
    793796
    794797 11       REWIND ( 11 )
     
    803806 
    804807 12       BACKSPACE( 11 )
    805           READ( 11 ,fmt='(A)') line
    806           CALL parin_fail_message ( 'inipar', line )
     808          READ( 11 , '(A)') line
     809          CALL parin_fail_message( 'inipar', line )
    807810
    808811 13       message_string = 'no initialization_parameters-namelist found'
     
    818821          REWIND ( 11 )
    819822          line = ' '
    820           DO   WHILE ( INDEX( line, '&runtime_parameters' ) == 0 )
     823          DO WHILE ( INDEX( line, '&runtime_parameters' ) == 0 )
    821824             READ ( 11, '(A)', END=16 )  line
    822825          ENDDO
     
    829832
    830833 15       BACKSPACE( 11 )
    831           READ( 11 ,fmt='(A)') line
    832           CALL parin_fail_message ( 'runtime_parameters', line )
     834          READ( 11 , '(A)') line
     835          CALL parin_fail_message( 'runtime_parameters', line )
    833836
    834837 16       REWIND ( 11 )
    835838          line = ' '
    836           DO   WHILE ( INDEX( line, '&d3par' ) == 0 )
     839          DO WHILE ( INDEX( line, '&d3par' ) == 0 )
    837840             READ ( 11, '(A)', END=18 )  line
    838841          ENDDO
     
    851854
    852855 17       BACKSPACE( 11 )
    853           READ( 11 ,fmt='(A)') line
    854           CALL parin_fail_message ( 'd3par', line )
     856          READ( 11 , '(A)') line
     857          CALL parin_fail_message( 'd3par', line )
    855858
    856859 18       CONTINUE
Note: See TracChangeset for help on using the changeset viewer.