作者blue33210 (兰)
看板Fortran
标题[问题] 如何输出不会被覆盖
时间Tue Apr 12 22:21:46 2016
大家好~ 我是程式新手
程式有问题想请教各位前辈
我有一个主程式、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 ...
麻烦各位前辈了，谢谢!!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.224.6.186
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Fortran/M.1460470908.A.B6A.html
1F：→ kerwinhui: access='append' .... 04/13 09:25
2F：→ rex0707: 为什麽不在主程式开档案 副程式写资料进去就好了 04/13 11:21
感谢两位!!!已经成功了~~
※ 编辑: blue33210 (36.224.7.33), 04/13/2016 18:57:58