Returns true if input_filename is a list input: that is, if it ends in .list
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | input_filename |
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