Changeset 1289 for palm/trunk/UTIL/interpret_config.f90

Timestamp:

Mar 4, 2014 7:12:34 AM (10 years ago)

Author:

raasch

Message:

script comments translated to English
version update to 3.10

File:

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

palm/trunk/UTIL/interpret_config.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! routine local_getenv removed
 !
 ! Former revisions:
@@ -551 +551 @@
 
  END PROGRAM interpret_config
-
-
-
- SUBROUTINE local_getenv( var, ivar, value, ivalue )
-
-    CHARACTER (LEN=*) ::  var, value
-    INTEGER           ::  ivalue, ivar
-
-    CALL GETENV( var(1:ivar), value )
-    ivalue = LEN_TRIM( value )
-
- END SUBROUTINE local_getenv