sysutils_obj_FileExists Function

private impure function sysutils_obj_FileExists(filename) result(val)

Checks whether a file exists.

Type Bound

sysutils_obj

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename

File name

Return Value logical


Called by

proc~~sysutils_obj_fileexists~~CalledByGraph proc~sysutils_obj_fileexists sysutils_obj%sysutils_obj_FileExists proc~hdf5_obj_open hdf5_obj%hdf5_obj_Open proc~hdf5_obj_open->proc~sysutils_obj_fileexists

Source Code

    impure function sysutils_obj_FileExists(filename) result(val)
      !> Checks whether a file exists.
      implicit none
      character(len=*), intent(in) :: filename                                 !! File name
      ! Check file exists
      logical :: val

      inquire(file=trim(adjustl(filename)), exist=val)

      return
    end function sysutils_obj_FileExists