file - 在 Fortran 77 中重命名文件

Question

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

RENAME(old name, new name)

或类似的东西：

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

谢谢

Answer 1

我认为你用第一个钉住了它：

CALL RENAME('oldname','newname')

更多在这里。在这里。

Answer 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