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/package_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!
     
    315318 20 BACKSPACE( 11 )
    316319    READ( 11 ,fmt='(A)') line
    317     CALL parin_fail_message ( 'dvrp_graphics_par', line )
     320    CALL parin_fail_message( 'dvrp_graphics_par', line )
    318321
    319322 21 CONTINUE
     
    340343
    34134410  BACKSPACE( 11 )
    342     READ( 11 ,fmt='(A)') line
    343     CALL parin_fail_message ( 'particle_parameters', line )
     345    READ( 11 , '(A)') line
     346    CALL parin_fail_message( 'particle_parameters', line )
    344347
    345348!
     
    34735012  REWIND ( 11 )
    348351    line = ' '
    349     DO   WHILE ( INDEX( line, '&particles_par' ) == 0 )
     352    DO WHILE ( INDEX( line, '&particles_par' ) == 0 )
    350353       READ ( 11, '(A)', END=14 )  line
    351354    ENDDO
     
    369372
    370373 13    BACKSPACE( 11 )
    371        READ( 11 ,fmt='(A)') line
    372        CALL parin_fail_message ( 'particles_par', line )
     374       READ( 11 , '(A)') line
     375       CALL parin_fail_message( 'particles_par', line )
    373376
    374377 14 CONTINUE
Note: See TracChangeset for help on using the changeset viewer.