我试图编写一个Fortran文件，每个文件包含2000个元素，每1000个程序步骤。起初，我尝试用以下方式编写它：
if(i.eq.1000)
open (21,file='eedf.res',status='unknown',position='append')
write(21,121) (eedf(le),le=1,2000)
close (21)
i=0
。
。
（然后将eedf等于零，并在以下1000步中重建数组;我们在do循环中。）
它工作，生成一个打印在行上的数组的文件，但我用来绘制这些函数的程序告诉我列太多了，所以列的后半部分丢失了...... 所以，我想在列中编写eedf，第一个是在第一个1000程序步骤之后使用eedf，第二个是在接下来的1000个程序步骤之后使用eedf，依此类推。我怎么能这样做？
eedf（1）eedf（1）
对不起，如果我一直很啰嗦，我试着以最清晰的方式表达。
非常感谢！