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/spectra_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!
     
    239242       REWIND ( 11 )
    240243       line = ' '
    241        DO   WHILE ( INDEX( line, '&spectra_parameters' ) == 0 )
     244       DO WHILE ( INDEX( line, '&spectra_parameters' ) == 0 )
    242245          READ ( 11, '(A)', END=12 )  line
    243246       ENDDO
     
    260263
    261264 10    BACKSPACE( 11 )
    262        READ( 11 ,fmt='(A)') line
    263        CALL parin_fail_message ( 'spectra_parameters', line )
     265       READ( 11 , '(A)') line
     266       CALL parin_fail_message( 'spectra_parameters', line )
    264267!
    265268!--    Try to find the old namelist
    266269 12    REWIND ( 11 )
    267270       line = ' '
    268        DO   WHILE ( INDEX( line, '&spectra_par' ) == 0 )
     271       DO WHILE ( INDEX( line, '&spectra_par' ) == 0 )
    269272          READ ( 11, '(A)', END=14 )  line
    270273       ENDDO
     
    292295
    293296 13    BACKSPACE( 11 )
    294        READ( 11 ,fmt='(A)') line
    295        CALL parin_fail_message ( 'spectra_par', line )
     297       READ( 11 , '(A)') line
     298       CALL parin_fail_message( 'spectra_par', line )
    296299       
    297300       
Note: See TracChangeset for help on using the changeset viewer.