[問題] 輸出檔案一問

[mr24 (=大頭=)]

小弟需要將一個data轉成指定的格式
所以使用了open這指令
讀完之後也按照格式編排之後 要如何輸出到檔案中



OPEN(UNIT=13,FILE="file_name",STATUS="OLD")
DO i=1,n_atom
  READ(13,*) X,Y,Z
  WRITE(14,"(A1,X14,I3,X9,I1)") a_name , i , a_number
  WRITE(14,"(3F20)") X,Y,Z

上面是編排部份
假設我要出到一個叫CONFIG的檔案內 該如何結尾?
謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.116.75.123
推 terryys:open裡的file=XXX就代表開啟XXX這個檔案 所以你要把它改成
→ terryys:"CONFIG"
→ terryys:好像不對，你是要從file_name讀取資料再寫到CONFIG裡嗎?
→ terryys:那你要在寫入14以前執行open unit=14才行, 不然它不知道
→ terryys:寫到哪裡
→ terryys:所以要加一行OPEN(UNIT=14,FILE="CONFIG")
→ terryys:然後你編排後面記得加enddo和close 13 14
→ mr24:感謝terryys 我在試試看 謝嚕