[問題] 如何輸出不會被覆蓋

作者: blue33210 (蘭)   2016-04-12 22:21:46
大家好~ 我是程式新手
程式有問題想請教各位前輩
我有一個主程式、N個Subroutine
想要在Subroutine被Call的時候,輸出一段文字到一個已存在的TXT檔
程式碼如下:
character(len=10)::in
OPEN(21,file='in.txt',status='old',action='write')
WRITE(21,10)
FORMAT(2X,'in calpuv9')
CLOSE(21)
我在N個子程式中輸入相同的程式碼
但WRITE和FORMAT的編號會改,輸出的文字也不一樣
跑完之後發現好像會覆蓋,只剩下一個子程式的文字有輸出
請問要怎麼更改才能在TXT檔中看到複數個子程式文字輸出
想要的TXT檔範例: in calpuv8 . in calpuv9 . in calpuv10 ...
麻煩各位前輩了,謝謝!!
作者: kerwinhui (kezza)   2016-04-13 09:25:00
access='append' ....
作者: rex0707 (我就是我)   2016-04-13 11:21:00
為什麼不在主程式開檔案 副程式寫資料進去就好了

Links booklink

Contact Us: admin [ a t ] ucptt.com