把两个文件写到一个dat文件大小只有1k，不知道哪里出了问题

一一一一

已有一个n.txt是100个数字，一个i.grd是与时间t（100个）对应的参数 i 。目标是写成与时间t对应的两个变量的dat文件。使用的是IVF。
f90如下：
program in
parameter(it=100)
real i(it),n(it)

open(unit=11,file='f:\data\i.grd',form='unformatted',access='direct',recl=1)
irec=1
do j=1,it
read(11,rec=irec) i(j)
irec=irec+1
enddo

open(unit=12,file='f:\data\n.txt')
irec=1
do j=1,it
read(12,*) n(j)
irec=irec+1
enddo

open(unit=13,file='f:\data\in.dat',form='unformatted',access='direct',recl=1)
irec=1
do j=1,it
write(13,rec=irec) i(j)
irec=irec+1
write(13,rec=irec) n(j)
irec=irec+1
enddo

close(11)
close(12)
close(13)

end


求指点是哪里写错了！！！

irides

打开文件的时候不要设置成“DIRECT”和“RECL=1”吧，RECL不是用来设置读写数据的长度的吗，设置成1会不会是限制了你读入数据的多少？你可以读一个数据就print一下试试看

一一一一

irides 发表于 2018-3-21 08:13
打开文件的时候不要设置成“DIRECT”和“RECL=1”吧，RECL不是用来设置读写数据的长度的吗，设置成1会不会 ...

如果不设置direct后面就没法读啊……
用print可以看出来确实读出来有问题
求问要怎么改呢？

irides

do循环不是可以一行一行读吗？为什么一定要指定位置呢？