Ignore:
Timestamp:
Mar 4, 2014 7:12:34 AM (11 years ago)
Author:
raasch
Message:

script comments translated to English
version update to 3.10

File:
1 edited

Legend:

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

    r1096 r1289  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! routine local_getenv removed
    2323!
    2424! Former revisions:
     
    551551
    552552 END PROGRAM interpret_config
    553 
    554 
    555 
    556  SUBROUTINE local_getenv( var, ivar, value, ivalue )
    557 
    558     CHARACTER (LEN=*) ::  var, value
    559     INTEGER           ::  ivalue, ivar
    560 
    561     CALL GETENV( var(1:ivar), value )
    562     ivalue = LEN_TRIM( value )
    563 
    564  END SUBROUTINE local_getenv   
Note: See TracChangeset for help on using the changeset viewer.