浮点型站点资料输出为文本，但数据是整型，清风当年的代码

felin · 发表于 2017-2-16 11:47:58

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 felin 于 2017-2-16 11:50 编辑

这个代码是清风当年写的！
QQ截图20170216114331.png

输出结果如下

但是原始资料中是浮点型，如7.2或2.6，现在变成了7和2，修改输出语句“int(line(out_id))”为“real(line(out_id))”，或是去掉“int”以后，程序不输出数据！
还请各位大侠看看，附上资料

felin · 发表于 2017-2-16 18:36:42

问题已解决，改成“write(20,'(2(2x,a),2x,f9.3)')stid,"20"//trim(fname), line(out_id)”就好

饭团TT · 发表于 2017-8-13 22:27:16

学习了

{:eb513:}{:eb513:}{:eb513:}{:eb513:}

		自动登录	找回密码
密码			立即注册

[求助] 浮点型站点资料输出为文本，但数据是整型，清风当年的代码