nancy321 发表于 2008-4-28 16:24

求助：请帮我看下这个小程序哪里出错了

REAL X(256,8)
OPEN(5,file='some.dat',STATUS='OLD')
OPEN(6,file='accinputb3.dat',STATUS='NEW')
do 10 i=1,256
do 10 j=1,8
READ(5,*)X(i,J)
WRITE(6,*)X(i,J)
10 continue
close(5)
CLOSE(6)
100 format(8f10.6)
end
需要将文件读入，然后转换成256行，8个一行的数据输出到一个.dat文件。请各位大虾帮忙。不胜感激

lq12131010 发表于 2008-4-28 19:42

100 format(8f10.6)什么用?
WRITE(6,100)X(i,J)?也没有个换行符号 怎么换行..?
还有 现在都F90 了 ..还 10100的,...我比较挑剔..对不起了
建议好好看看彭老师的书.

nancy321 发表于 2008-5-5 12:27

因为碰到一个古老的计算程序，对格式要求很严格，没有办法。要不我还得把70几页的源程序全改一遍？

lq12131010 发表于 2008-5-5 13:06

90 和77 是兼容的..你应该可以的

fruit_zj 发表于 2008-12-5 22:27

你应该是想用100处的格式输出吧，那么：WRITE(6,*)X(i,J)，
应该改成WRITE(6,100)X(i,J)
页: [1]
查看完整版本: 求助：请帮我看下这个小程序哪里出错了