Ignore:
Timestamp:
Feb 28, 2007 3:39:05 AM (15 years ago)
Author:
raasch
Message:

empty lines in configuration file are allowed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/interpret_config.f90

    r1 r21  
    77! 29/06/05 - Siggi - Fehlermeldung ins englische uebertragen und ergaenzt
    88! 01/11/05 - Siggi - s2b-Feld erlaubt den Wert locopt
     9! 28/02/07 - Siggi - empty lines in configuration file are accepted
    910!
    1011! Letzte Aenderungen:
     
    7172       izeile = LEN_TRIM( zeile )
    7273
    73        IF ( zeile(1:1) == '#' )  THEN
     74       IF ( LEN_TRIM( zeile ) == 0 )  THEN
     75          CONTINUE
     76       ELSEIF ( zeile(1:1) == '#' )  THEN
    7477          icomment = icomment + 1
    7578       ELSEIF ( zeile(1:1) == '%' )  THEN
     
    491494                             bs, bs, bs, bs, bs, bs, bs
    492495 2010        FORMAT ('printf "',A,'n',A,'n +++ I/O-field in configuration ', &
    493                      'file ',A, ' has the illegal"'/ &
    494                      'printf "',A,'n     value ',A,'"',A,A,'". Only ', &
    495                      A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'/ &
    496                      'printf "',A,'n     The error may be caused by an', &
    497                      ' empty line at the end of the "'/ &
    498                      'printf "',A,'n     configuration file."' &
     496                     'file ',A, ' has the illegal"'/                         &
     497                     'printf "',A,'n     value ',A,'"',A,A,'". Only ',       &
     498                     A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'          &
    499499                    )
    500500             WRITE (2,'(''locat=connect; exit'')')
Note: See TracChangeset for help on using the changeset viewer.