fortran - 运算符(operator)检查文件是否存在

Question

我想创建一个运算符.f。检查文件是否存在以便我可以写入

if (.f. filename) Then ...

我已经编写了一个函数来执行此操作，现在必须创建界面。为了具有上述功能，对 e 函数参数的限制是什么？

Answer 1

您可以使用inquire内在函数:

module fileIO

interface operator( .f. )
  module procedure file_exists
end interface

contains

function file_exists(filename) result(res)
  implicit none
  character(len=*),intent(in) :: filename
  logical                     :: res

  ! Check if the file exists
  inquire( file=trim(filename), exist=res )
end function

end module

program test
  use fileIO

  print *, file_exists('/dev/null')
  print *, .f. '/dev/null'

end program