将（*，...）输出写入屏幕和文件

Question

程序执行可能需要很长时间，所以我想监视屏幕上的进度。而且，我想将输出保存到文件中。在过去，我通过在所有write（*，...）语句（很多）之后添加一个写（iunit，..）来完成此操作，其中iunit是连接到输出文件的某个单元号。当然有更优雅的方式来做到这一点。