% copyright Thomas Mc Avoy 1998
% Routine to determine gain matrix for non-analyser measurements.
% Cascade measurements removed giving a 12x12 gain matrix
% the gain label matrix Glabel is also updated.

function [A,G]=elim(K,Glabel)

A=[K(5:8,:);K(9,:);K(11:12,:);K(13,:);K(15:16,:);K(18,:);K(20,:)];
temp=[Glabel(6:9,6:19);Glabel(10,6:19);Glabel(12:13,6:19);Glabel(14,6:19);Glabel(16:17,6:19);Glabel(19,6:19);Glabel(21,6:19)];
G=[Glabel(1,1:35);[Glabel(2:13,1:5),temp(1:12,1:14),Glabel(2:13,20:35)]];
