% ex_mkclp

%   Copyright 1991-2004 MUSYN Inc. and The MathWorks, Inc.
% $Revision: 1.1.8.1 $

clpg_k1 = sel(formloop(G,K1,'pos','neg'),2,1);
clpg1_k1 = sel(formloop(G1,K1,'pos','neg'),2,1);
clpg2_k1 = sel(formloop(G2,K1,'pos','neg'),2,1);
clpg3_k1 = sel(formloop(G3,K1,'pos','neg'),2,1);
clpg4_k1 = sel(formloop(G4,K1,'pos','neg'),2,1);
clpg5_k1 = sel(formloop(G5,K1,'pos','neg'),2,1);
clpg6_k1 = sel(formloop(G6,K1,'pos','neg'),2,1);
clpg7_k1 = sel(formloop(G7,K1,'pos','neg'),2,1);
clpgwc1_k1 = sel(formloop(Gwc1,K1,'pos','neg'),2,1);
clpgwc2_k1 = sel(formloop(Gwc2,K1,'pos','neg'),2,1);

clpg_k2 = sel(formloop(G,K2,'pos','neg'),2,1);
clpg1_k2 = sel(formloop(G1,K2,'pos','neg'),2,1);
clpg2_k2 = sel(formloop(G2,K2,'pos','neg'),2,1);
clpg3_k2 = sel(formloop(G3,K2,'pos','neg'),2,1);
clpg4_k2 = sel(formloop(G4,K2,'pos','neg'),2,1);
clpg5_k2 = sel(formloop(G5,K2,'pos','neg'),2,1);
clpg6_k2 = sel(formloop(G6,K2,'pos','neg'),2,1);
clpg7_k2 = sel(formloop(G7,K2,'pos','neg'),2,1);
clpgwc1_k2 = sel(formloop(Gwc1,K2,'pos','neg'),2,1);
clpgwc2_k2 = sel(formloop(Gwc2,K2,'pos','neg'),2,1);