function arab=rome2arab(rome)
% ïðåîáðàçîâàíèå íîìåðà ìåñÿöà èç ðèìñêèõ öèôð â àðàáñêèå
%
%     arab=rome2arab(rome);
%

% 13.10.2014 - Ñ.Þ.Õîìóòîâ, Õàéäåðàáàä
% 22.09.2016 - use strmatch()

rome=deblank(rome); % remove trailing blanks
rome=[blanks(4-length(rome)) rome]; % äîïîëíÿåì ïðîáåëàìè äî 4-õ ñèìâîëîâ
rom=['   I';'  II';' III';'  IV';...
     '   V';'  VI';' VII';'VIII';...
     '  IX';'   X';'  XI';' XII'];
arab=strmatch(rome,rom,'exact');    % arabian number
if isempty(arab),
    disp('!!! Can not transform Rome to Arabian, use NaN !!!')
    arab=NaN;
end
