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

nancy321

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

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

nancy321

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

lq12131010

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

fruit_zj

你应该是想用100处的格式输出吧，那么：WRITE(6,*)X(i,J)，
应该改成WRITE(6,100)X(i,J)