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/message.f90

    r3247 r3248  
    2525! -----------------
    2626! $Id$
     27! Minor formating changes
     28!
     29! 3247 2018-09-14 07:06:30Z sward
    2730! Subroutine description updated and parin_fail_message now also outputs
    2831! the line number in which namelist reading failed
     
    323326
    324327    REWIND( 11 )
    325     DO   WHILE ( INDEX( line_dum, TRIM(line) ) == 0 )
    326          READ ( 11, '(A)', END=20 )  line_dum
    327          line_counter = line_counter + 1
     328    DO WHILE ( INDEX( line_dum, TRIM(line) ) == 0 )
     329       READ ( 11, '(A)', END=20 )  line_dum
     330       line_counter = line_counter + 1
    328331    ENDDO
    329332
     
    332335                   '&Reading fails on line ', line_counter,                    &
    333336                   ' at&' // line
    334           CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
     337    CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
    335338
    336339 END SUBROUTINE parin_fail_message
Note: See TracChangeset for help on using the changeset viewer.