source:
trunk/LMDZ.GENERIC/utilities/strlen.for
@
1243
| Last change on this file since 1243 was 253, checked in by , 13 years ago | |
|---|---|
| File size: 186 bytes | |
| Rev | Line | |
|---|---|---|
| [253] | 1 | integer function strlen(st) |
| 2 | integer i | |
| 3 | character st*(*) | |
| 4 | i=len(st) | |
| 5 | do while (st(i:i).eq.' ') | |
| 6 | i=i-1 | |
| 7 | enddo | |
| 8 | strlen=i | |
| 9 | return | |
| 10 | end |
Note: See TracBrowser
for help on using the repository browser.
