大家好~ 我是程式新手
程式有問題想請教各位前輩
我有一個主程式、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 ...
麻煩各位前輩了，謝謝!!