function outputmat=RCSwap(inputmat,index1,index2,dim)
    outputmat=inputmat; 

    if dim==1     

outputmat(index1,:)=inputmat(index2,:)   

outputmat(index2,:)=inputmat(index1,:)  

    elseif dim==2       

outputmat(:,index1)=inputmat(:,index2)       

outputmat(:,index2)=inputmat(:,index1)       

end

Edit: I was kinda hoping it would be something worth looking at :/