source:
trunk/pgm97/ltrim.f
@
2
Last change on this file since 2 was 1, checked in by cbipsl, 18 years ago | |
---|---|
File size: 301 bytes |
Rev | Line | |
---|---|---|
[1] | 1 | integer function ltrim(chaine) |
2 | * | |
3 | character*(*) chaine | |
4 | * | |
5 | long = len(chaine) | |
6 | * | |
7 | ltrim = 0 | |
8 | * | |
9 | do i=long,1,-1 | |
10 | if (chaine(i:i).ne.' ') then | |
11 | ltrim= i | |
12 | goto 10 | |
13 | end if | |
14 | end do | |
15 | * | |
16 | 10 continue | |
17 | * | |
18 | end |
Note: See TracBrowser
for help on using the repository browser.