Changes in / [30:20]


Ignore:
Location:
/palm/trunk
Files:
2 added
3 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • /palm/trunk/SCRIPTS

    • Property svn:ignore deleted
  • /palm/trunk/UTIL/interpret_config.f90

    r30 r20  
    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
    109!
    1110! Letzte Aenderungen:
     
    7271       izeile = LEN_TRIM( zeile )
    7372
    74        IF ( LEN_TRIM( zeile ) == 0 )  THEN
    75           CONTINUE
    76        ELSEIF ( zeile(1:1) == '#' )  THEN
     73       IF ( zeile(1:1) == '#' )  THEN
    7774          icomment = icomment + 1
    7875       ELSEIF ( zeile(1:1) == '%' )  THEN
     
    494491                             bs, bs, bs, bs, bs, bs, bs
    495492 2010        FORMAT ('printf "',A,'n',A,'n +++ I/O-field in configuration ', &
    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!"'          &
     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."' &
    499499                    )
    500500             WRITE (2,'(''locat=connect; exit'')')
Note: See TracChangeset for help on using the changeset viewer.