关于文件读写的问题

fcode

我什么时候笑而不语了？汗颜....下午有点事，一直没顾着看QQ群。

这代码得看输入文件张啥样，才知道怎么算正确，怎么算错误。

第29行

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

        read(5,'(A20)') str(i)
!// 可修改为
        read(5,'(A)') Trim(str(i))
!// 因为 str 长度是20，我们一般不需要输入完，后面的空格是多余的。