[文件读写] 求助文件读写

801 帖子	2 主题	0 精华

大宗师

F 币: 3804 元
贡献: 2273 点

发消息

楼主

发表于 2018-9-26 12:59:28 | 显示全部楼层

101 format(a10,1x,a12,2(1x,e15.7),1x,e16.7,1x,e15.7)
更好改为：

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

character(100) str,a,b
real c,d,e,f
read(3,"(a)") str
a = str(1:10)
b = str(12:23)
read(str(24:),*) c,d,e,f
write(*,*) trim(a),' ',trim(b)
write(*,*) c,d,e,f
pause
end

回复支持反对

使用道具举报

返回列表发新帖