function [mth]=rom2reg(rom);

% convert roman numerals to mth

    if rom=='  I ';
      mth=1;
      elseif rom==' II ';
      mth=2;
      elseif rom==' III';
      mth=3;
      elseif rom==' IV ';
      mth=4;
      elseif rom=='  V ';
      mth=5;
      elseif rom==' VI ';
      mth=6;
      elseif rom==' VII';
      mth=7;
      elseif rom=='VIII';
      mth=8;
      elseif rom==' IX ';
      mth=9;
      elseif rom=='  X ';
      mth=10;
      elseif rom==' XI ';
      mth=11;
      elseif rom==' XII';
      mth=12;
    end
