function [R12] = M12(R21);
  
% we calculate:  right-up block
% note: R12 = R21' since M is symetric
% 20.11.'01  
% call: [R12] = M12(R21);

  
R12 = R21';  