source: MML/trunk/machine/SOLEIL/StorageRing/insertions/idAuxMatrResizeExt.m @ 4

function mRes = idAuxMatrResizeExt(m, newSizeDim1, newSizeDim2, iStartDim1, iStartDim2)

sizeDim1 = size(m, 1);
sizeDim2 = size(m, 2);

if((iStartDim1 < 1) || (iStartDim1 > sizeDim1))
    fprintf('Incorrect start index value');
end
if((iStartDim2 < 1) || (iStartDim2 > sizeDim2))
    fprintf('Incorrect start index value');
end

sizeDim1_min = sizeDim1;
sizeDim2_min = sizeDim2;

if(sizeDim1_min > newSizeDim1)
        sizeDim1_min = newSizeDim1;
end
if(sizeDim2_min > newSizeDim2)
        sizeDim2_min = newSizeDim2;
end

mRes = zeros(newSizeDim1, newSizeDim2);

for i1 = iStartDim1:sizeDim1_min
    for i2 = iStartDim2:sizeDim2_min
        mRes(i1 - iStartDim1 + 1, i2 - iStartDim2 + 1) = m(i1, i2);
    end
end

%for i1 = iStartDim1:(iStartDim1 + sizeDim1_min)
%    for i2 = iStartDim2:(iStartDim2 + sizeDim2_min)
%        mRes(i1 - iStartDim1 + 1, i2 - iStartDim2 + 1) = m(i1, i2);
%    end
%end

%for i1 = 1:sizeDim1_min
%    for i2 = 1:sizeDim2_min%
%        mRes(i1, i2) = m(i1, i2);
%    end
%end