lin_evol_opt_get_rb_size.m

function nRB = lin_evol_opt_get_rb_size(model, detailed_data, derivative_index)

if (nargin<3)||(derivative_index ==0)
    if isfield(detailed_data,'RB')
        nRB = size(detailed_data.RB,2);
    else
        nRB =-1;
    end
else
    if isfield(detailed_data,'RB_der')&&(length(detailed_data.RB_der)>=derivative_index)
        nRB = size(detailed_data.RB_der{derivative_index},2);
    else
        nRB = -1;
    end
end