新人求助关于read的问题

li913

1、用字符串读取整行；
2、用空格替换字符串中的括号；
3、从字符串读取数据。

[Fortran] 纯文本查看 复制代码

program test
character(512) ch 
real arr(100)

open(10,...)
read(10,"(a)") ch 
do i = 1, len_trim(ch)
        if(ch(i:i)=='(' .or. ch(i:i)==')') ch(i:i)=' '
end do 
read(ch,*) arr
end program