exists_file Function

function exists_file(fname) result(ex)

Return .true. if fname exists on disk.

Arguments

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

Return Value logical


Called by

proc~~exists_file~~CalledByGraph proc~exists_file exists_file proc~test_078 test_078 proc~test_078->proc~exists_file proc~test_079 test_079 proc~test_079->proc~exists_file proc~test_080 test_080 proc~test_080->proc~exists_file proc~test_087 test_087 proc~test_087->proc~exists_file proc~test_088 test_088 proc~test_088->proc~exists_file proc~test_089 test_089 proc~test_089->proc~exists_file program~check check program~check->proc~test_078 program~check->proc~test_079 program~check->proc~test_080 program~check->proc~test_087 program~check->proc~test_088 program~check->proc~test_089

Source Code

   logical function exists_file(fname) result(ex)
      character(len=*), intent(in) :: fname
      inquire(file=fname, exist=ex)
   end function exists_file