open(135,file='test.xyz',status='replace',access='direct',
form='formatted',recl=46)
if (XX .lt. XX) then
N = N + 1
recposition = N + 1
write(135,7777,rec=recposition) AAA,BBB,CCC
endif
write(135,9999,rec=1) N
** N必须要全部跑完才能知道值，可是又必须写在档案的开头
目前的问题是使用 direct file "写出" data
N有成功出现在档案开头，可是每一笔data不会自动换行，全部就一行
网络上我查过，还是无解
是否有方法可让每笔data都自动换行
请高手解答，谢谢!