is_input_file_list Function

private function is_input_file_list(input_filename)

Returns true if input_filename is a list input: that is, if it ends in .list

Arguments

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

Return Value logical


Contents

Source Code


Source Code

  logical function is_input_file_list(input_filename)
    character(len=*), intent(in) :: input_filename
    integer :: filename_length
    filename_length = len_trim(input_filename)
    if (filename_length > 5) then
       is_input_file_list = (input_filename(filename_length-4:filename_length) == ".list")
    else
       is_input_file_list = .false.
    endif
  end function is_input_file_list