
function gmin = condmini(Gf)

[dum1,n,m,dum2]=minfo(Gf);
zero = 0*eye(n);
H = abv( sbs(zero, minv(Gf)), sbs(Gf, zero));

blk0=[1 1]; blk1=blk0;
for k=2:n
  blk1 = [blk1; blk0];
end
blk2=[n n]; blk=[blk1; blk2];

gmin1=sel(mu(H,blk,'Uc'),':',1); gmin=mmult(gmin1,gmin1); 


