sysutils_obj_DirectoryExists Function

    impure function sysutils_obj_DirectoryExists(dirname) result(val)
      ! Checks whether a directory exists.
      implicit none
      character(len=*), intent(in) :: dirname                                  !! Directory name
      logical :: val
      ! Wwork variable
      integer :: istat

      call execute_command_line("test -d " // trim(adjustl(dirname)), exitstat=istat)

      if (istat.eq.0) then
        val = .true.
      else
        val = .false.
      end if

      return
    end function sysutils_obj_DirectoryExists