主题：求助： 如何处理输出数据换行的问题
academician
[专家分：40] 发布于 2010-06-18 09:47:00
PROGRAM MAIN
IMPLICIT NONE
REAL A,B,C,D,E,F,G,H
A=1
B=2
C=3
D=4
E=5
F=6
G=7
H=8
WRITE(*,"(F12.2,F12.2,F8.2,F8.2,F8.2,F8.2,F8.2,F8.2)")A,B,C,D,E,F,G,H
END
输出结果为：
1.00 2.00 3.00 4.00 5.00 6.00 7.00
8.00
我不想换行，但是程序换行了，我还想保留每个双精度数的格式F 12.2,F12.2,F8.2,F8.2,F8.2,F8.2,F8.2
该如何处理？
最后更新于：2010-06-19 23:06:00
回复列表 （共8个回复）
沙发
adda [专家分：1520] 发布于 2010-06-19 15:13:00
WRITE(*,"(F12.2,F12.2,F8.2,F8.2,F8.2,F8.2,F8.2)",advance='no')
板凳
academician [专家分：40] 发布于 2010-06-19 16:44:00
不行 还是换行
3 楼
asymptotic [专家分：16630] 发布于 2010-06-19 17:12:00
你是输出到 " 小黑屏 " 吗 ? 输出到文件,就不会换行了.
4 楼
academician [专家分：40] 发布于 2010-06-19 21:55:00
都换行 黑屏和文件都换行
5 楼
asymptotic [专家分：16630] 发布于 2010-06-20 01:28:00
Intel Fortran 11.1.065 编译器中， " 小黑屏 " 和 文件中 皆不换行。
6 楼
asymptotic [专家分：16630] 发布于 2010-06-20 01:28:00
subroutine ABC
implicit none
real:: a, b, c, d, e, f, g, h
character(len = 60):: fmt_str
a = 1.0
b = 2.0
c = 3.0
d = 4.0
e = 5.0
f = 6.0
g = 7.0
h = 8.0
fmt_str = "(f12.2,f12.2,f8.2,f8.2,f8.2,f8.2,f8.2,f8.2)"
write(*, fmt = fmt_str) a, b, c, d, e, f, g, h
return
end subroutine
7 楼
春上春数 [专家分：90] 发布于 2010-06-21 01:16:00
%s=Replace(Replace(Server.HTMLEncode(rs("留言")),vbcrlf,"br"),"","")%这是在asp中的你自己弄弄吧！
8 楼
academician [专家分：40] 发布于 2010-06-23 22:47:00
我昏 整了半天我少些了个 f8.2
我来回复
您所在位置：