file - 关闭多个文件

Question

我需要关闭并删除几个文件，一旦它们打开并且内容存储在一些变量中。为了避免重复语法，我可以使用:

        OPEN(UNIT = 27, FILE = "C:/Abaqus_JOBS/w.txt", status = "UNKNOWN")
  C
        READ(UNIT,END=1000) w
   1000 CLOSE (UNIT, status='delete') ,

这样我只需要指定一次CLOSE (UNIT, status='delete')？

谢谢

Answer 1

我个人不会使用结束语句，而是调用一个关闭正确文件的子例程:

subroutine del_file(uFile, stat)
  implicit none
  integer uFile, stat 

c If the unit is not open, stat will be non-zero
  close(unit=uFile, status='delete', iostat=stat)
end subroutine

您阅读的语句将是:

read(unit=curUnit, iostat=stat) w
if ( stat .ne. 0 ) call del_file(curUnit, stat)

你仍然需要一些逻辑来不从关闭的文件中读取。我会推荐一个数组来保存与输入文件对应的所有单位。