source:
trunk/LMDZ.GENERIC/utilities/correlatedk_utilities/strlen.for
@
2613
| Last change on this file since 2613 was 1512, checked in by , 9 years ago | |
|---|---|
| File size: 186 bytes | |
| Line | |
|---|---|
| 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.
