functioncontains_string

logical function contains_string(list, s)
    type(string_t), intent(in) :: list(:)   !! the list
    character(len=*), intent(in) :: s       !! the string to find
    integer :: k
    contains_string = .false.
    do k = 1, size(list)
        if (list(k)%s == s .and. len(list(k)%s) == len(s)) then
            contains_string = .true.
            return
        end if
    end do
end function contains_string