在Fortran 77中重命名文件

Question

Is there a way to rename a file in fortran 77? such as:

RENAME(old name, new name)

or something like:

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

Thanks

Answer 1

I think you nailed it with the first one:

CALL RENAME('oldname','newname')

More here . And here .

Answer 2

You can use the modFileSys library for that. In contrast to non-standard compiler extensions, it can be compiled with any Fortran 2003 compiler and can be used an all POSIX compatible systems. You could also check for errors, if needed:

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