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都自動換行
請高手解答，謝謝!