subroutineset_logicalprivate

subroutine set_logical(s, key, value)
    type(settings_t), intent(inout) :: s    !! the settings
    character(len=*), intent(in) :: key     !! the option
    logical, intent(in) :: value            !! its value

    select case (key)
    case ('coloured_edges'); s%coloured_edges = value
    case ('dbg'); s%dbg = value
    case ('doxygen'); s%doxygen = value
    case ('externalize'); s%externalize = value
    case ('fixed_length_limit'); s%fixed_length_limit = value
    case ('force'); s%force = value
    case ('graph'); s%graph = value
    case ('hide_undoc'); s%hide_undoc = value
    case ('incl_src'); s%incl_src = value
    case ('lower'); s%lower = value
    case ('preprocess'); s%preprocess = value
    case ('print_creation_date'); s%print_creation_date = value
    case ('proc_internals'); s%proc_internals = value
    case ('quiet'); s%quiet = value
    case ('search'); s%search = value
    case ('show_proc_parent'); s%show_proc_parent = value
    case ('source'); s%source = value
    case ('warn'); s%warn = value
    end select
end subroutine set_logical