问个Fortran字符串操作的问题 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Computation - 科学计算

问个Fortran字符串操作的问题

问个Fortran字符串操作的问题# Computation - 科学计算

r*y2005-03-04 08:03

1 楼

Is there a function in fortran which can tell the length of a string?
For example
character*80 A
A='dfwrerefdfe'

which function can tell the length of this A?
Have not used Fortran for a long long time, so rusty now. :-((

h*o2005-03-04 08:03

2 楼

integer function strlen(str)
integer i
character str*(*)
i = len(str)
do while (str(i:i) .eq. ' ')
i = i - 1
enddo
strlen = i
return
end
fortran is really awkward...

【在 r****y 的大作中提到】

: Is there a function in fortran which can tell the length of a string?
: For example
: character*80 A
: A='dfwrerefdfe'
:
: which function can tell the length of this A?
: Have not used Fortran for a long long time, so rusty now. :-((

a*x2005-03-04 08:03

3 楼

use the function "len" and "len_trim".

【在 r****y 的大作中提到】

a*x2005-03-04 08:03

4 楼

Peng

【在 h***o 的大作中提到】

: integer function strlen(str)
: integer i
: character str*(*)
: i = len(str)
: do while (str(i:i) .eq. ' ')
: i = i - 1
: enddo
: strlen = i
: return
: end

r*y2005-03-04 08:03

5 楼

Thanks. Where are you now, graduated yet? :-)

【在 h***o 的大作中提到】

: integer function strlen(str)
: integer i
: character str*(*)
: i = len(str)
: do while (str(i:i) .eq. ' ')
: i = i - 1
: enddo
: strlen = i
: return
: end

h*o2005-03-04 08:03

6 楼

looking for job now....

【在 r****y 的大作中提到】

: Thanks. Where are you now, graduated yet? :-)