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 |
Line | |
---|---|
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.