!cvf6.5通过。2007-9-8
program ProgramName
implicit none
integer,parameter::rows=200 !有1000行数据
real::a(rows) !这里假设你的数据是实数
integer::i
open(1,file="输入文件名.txt")
read(1,*) (a(i),i=1,rows) !你要保证只有一列数据,否则此句会出错。
close(1)
open(2,file="输出文件名.txt")
write(2,"(<rows>(f10.2))") (a(i),i=1,rows) !如果是其它数据类型,这里的f10.2也要对应改掉啊
close(2)
end program
!记得用UE打开看结果。notepad在数据多的时候会自动换行的。
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。