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