%
% Interface function to robust control toolbox NORMHINF
%
% [hinfn] = snormhinf(G, tol);
%
% G   is a stable transfer function matrix on Mu-tools 
%     system matrix form.
% aux = [tol lowerbound upperbound]
%
% See also 
%

function [hinfn] = snormhinf(G, aux);

   [a,b,c,d] = unpck(G);

   if nargin < 2
     [hinfn] = normhinf(a,b,c,d);
   else
     ne=size(aux,2);
     if ne >= 3;
        auxm = [aux(1) 1/aux(2) 1/aux(3)];
     elseif ne >= 1 
        auxm = [aux(1)];
     else
        auxm = [];
     end
     [hinfn] = normhinf(a,b,c,d,auxm);     
   end
end
