在 Fortran 77 中重命名文件

【问题标题】：Rename file in Fortran 77在 Fortran 77 中重命名文件
【发布时间】：2013-11-10 10:54:28
【问题描述】：

有没有办法在 fortran 77 中重命名文件？如：

RENAME(old name, new name)

或类似的东西：

call system("rename" // trim(old name) // " " // trim(new name))

谢谢

【问题讨论】：

标签： file fortran rename

【解决方案1】：

我认为你在第一个方面做得很好：

CALL RENAME('oldname','newname')

更多here。还有here。

【讨论】：

一个可能比 Rosetta 代码更相关的链接是 gcc doc page on RENAME。
将该文档页面链接添加到答案中。
请注意，RENAME 不是标准的 Fortran 内部例程。不过，它通常在许多实现中作为扩展提供。

【解决方案2】：

您可以为此使用modFileSys 库。与非标准编译器扩展相比，它可以使用任何 Fortran 2003 编译器进行编译，并且可以用于所有 POSIX 兼容的系统。如果需要，您还可以检查错误：

program test
  use libmodfilesys_module
  implicit none

  integer :: error

  ! Renaming with error handling
  call rename("old.dat", "new.dat", error=error)
  if (error /= 0) then
    print *, "Error happened"
  end if

  ! Renaming without explicit error handling, stops the program
  ! if error happens.
  call rename("old2.dat", "new2.dat")

end program test

【讨论】：