在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')

更多here。并here。

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