Changeset 21 for palm/trunk/UTIL

Timestamp:

Feb 28, 2007 3:39:05 AM (17 years ago)

Author:

raasch

Message:

empty lines in configuration file are allowed

File:

• palm/trunk/UTIL/interpret_config.f90 (modified) (3 diffs)

palm/trunk/UTIL/interpret_config.f90

@@ -7 +7 @@
 ! 29/06/05 - Siggi - Fehlermeldung ins englische uebertragen und ergaenzt
 ! 01/11/05 - Siggi - s2b-Feld erlaubt den Wert locopt
+! 28/02/07 - Siggi - empty lines in configuration file are accepted
 !
 ! Letzte Aenderungen:
@@ -71 +72 @@
        izeile = LEN_TRIM( zeile )
 
-       IF ( zeile(1:1) == '#' )  THEN
+       IF ( LEN_TRIM( zeile ) == 0 )  THEN
+          CONTINUE
+       ELSEIF ( zeile(1:1) == '#' )  THEN
           icomment = icomment + 1
        ELSEIF ( zeile(1:1) == '%' )  THEN
@@ -491 +494 @@
                              bs, bs, bs, bs, bs, bs, bs
  2010        FORMAT ('printf "',A,'n',A,'n +++ I/O-field in configuration ', &
-                     'file ',A, ' has the illegal"'/ &
-                     'printf "',A,'n     value ',A,'"',A,A,'". Only ', &
-                     A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'/ &
-                     'printf "',A,'n     The error may be caused by an', &
-                     ' empty line at the end of the "'/ &
-                     'printf "',A,'n     configuration file."' &
+                     'file ',A, ' has the illegal"'/                         &
+                     'printf "',A,'n     value ',A,'"',A,A,'". Only ',       &
+                     A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'          &
                     )
              WRITE (2,'(''locat=connect; exit'')')