Changeset 1289 for palm/trunk/UTIL/interpret_config.f90
- Timestamp:
- Mar 4, 2014 7:12:34 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/interpret_config.f90
r1096 r1289 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! routine local_getenv removed 23 23 ! 24 24 ! Former revisions: … … 551 551 552 552 END PROGRAM interpret_config 553 554 555 556 SUBROUTINE local_getenv( var, ivar, value, ivalue )557 558 CHARACTER (LEN=*) :: var, value559 INTEGER :: ivalue, ivar560 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.