字符串数组中如何提取最后一个字符串
新手学习请教中， 如何提取一个字符串数组中的最后一个字符串，简单举例如：
str=abc d e f g h i j-k-l m n o-p-q
如何得到
str1=o-p-q
如
str=abc d e f g h i j-k-l m n o-p-q rstuvw
如何得到：
str1=rstuvw
这里先谢过了！
character(len=80) :: str="abc d e f g h i j-k-l m n o-p-q"
character(len=32) :: s
integer :: i
i = index( trim(str) , " " , back=.true.)
s = str(i+1:)
write(*,*) s
end
页:
[1]