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/virtual_flight_mod.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!
     
    252255       REWIND ( 11 )
    253256       line = ' '
    254        DO   WHILE ( INDEX( line, '&virtual_flight_parameters' ) == 0 )
     257       DO WHILE ( INDEX( line, '&virtual_flight_parameters' ) == 0 )
    255258          READ ( 11, '(A)', END=12 )  line
    256259       ENDDO
     
    267270
    268271 10    BACKSPACE( 11 )
    269        READ( 11 ,fmt='(A)') line
    270        CALL parin_fail_message ( 'virtual_flight_parameters', line )
     272       READ( 11 , '(A)') line
     273       CALL parin_fail_message( 'virtual_flight_parameters', line )
    271274!
    272275!--    Try to find the old namelist
    273276 12    REWIND ( 11 )
    274277       line = ' '
    275        DO   WHILE ( INDEX( line, '&flight_par' ) == 0 )
     278       DO WHILE ( INDEX( line, '&flight_par' ) == 0 )
    276279          READ ( 11, '(A)', END=14 )  line
    277280       ENDDO
     
    293296
    294297 13    BACKSPACE( 11 )
    295        READ( 11 ,fmt='(A)') line
    296        CALL parin_fail_message ( 'flight_par', line )
     298       READ( 11 , '(A)') line
     299       CALL parin_fail_message( 'flight_par', line )
    297300
    298301 14    CONTINUE
Note: See TracChangeset for help on using the changeset viewer.