function ind = mysub2ind(siz,s)

l=length(s);
switch l
    case 3
        ind=sub2ind(siz,s(1),s(2),s(3));
    case 4
        ind=sub2ind(siz,s(1),s(2),s(3),s(4));
    case 5
        ind=sub2ind(siz,s(1),s(2),s(3),s(4),s(5));
    case 6
        ind=sub2ind(siz,s(1),s(2),s(3),s(4),s(5),s(6));
    case 7
        ind=sub2ind(siz,s(1),s(2),s(3),s(4),s(5),s(6),s(7));
    case 8
        ind==sub2ind(siz,s(1),s(2),s(3),s(4),s(5),s(6),s(7),s(8));
    otherwise
        error('mysub2ind does not support s<3 or s>8\n');
end