大家好~ 我是程式新手
程式有问题想请教各位前辈
我有一个主程式、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 ...
麻烦各位前辈了，谢谢!!