function [sys,x0,str,ts] = my_qr(t,x,u,flag)

switch flag,
  
  case 0
    [sys,x0,str,ts]=mdlInitializeSizes;

  case 3
    sys=mdlOutputs(t,x,u);

  case { 1, 2, 4, 9 }
    sys=[];

  otherwise
    error(['Unhandled flag = ',num2str(flag)]);

end

function [sys,x0,str,ts] = mdlInitializeSizes()

sizes = simsizes;
sizes.NumContStates  = 0;
sizes.NumDiscStates  = 0;
sizes.NumOutputs     = 32;   % dynamically sized
sizes.NumInputs      = 64;  % dynamically sized
sizes.DirFeedthrough = 1;   % has direct feedthrough
sizes.NumSampleTimes = 1;

sys = simsizes(sizes);
str = [];
x0  = [];
ts  = [-1 0];   % inherited sample time

% end mdlInitializeSizes

function sys = mdlOutputs(t,x,u)
H_re = reshape(u(1:16),4,4);
H_re = reshape(u(1:16),4,4);
A2 = reshape(u2,4,4);
A  = A1 + A2*j;
[Q R]=qr(A);
sys = [Q R];

% end mdlOutputs