[icnt,itest_v]=cmpare(icnt,itest_v);

function [icnt,itest_v]=cmpare(icnt,itest_v);
persistent ierpp itemp nrdp rpp ss ; 

global check_1; if isempty(check_1), check_1=0; end;
global check_3; if isempty(check_3), check_3=0; end;
global check_4; if isempty(check_4), check_4=0; end;
global check_5; if isempty(check_5), check_5=0; end;
global check_8; if isempty(check_8), check_8=0; end;
global check_9; if isempty(check_9), check_9=0; end;
global check_7; if isempty(check_7), check_7=0; end;
global check_6; if isempty(check_6), check_6=0; end;
global check_2; if isempty(check_2), check_2=zeros(1,11); end;
if isempty(rpp), rpp=0; end;
if isempty(ss), ss=0; end;
if isempty(ierpp), ierpp=0; end;
if isempty(nrdp), nrdp=0; end;
if isempty(itemp), itemp=zeros(1,4); end;
% common :: ;
%% common /check / eps , r , rp , sveps , tol , nordp , nord , ierp ,ierr;
%% common /check / check_1 , check_2 , check_3 , check_4 , check_5 , check_6 , check_7 , check_8 ,check_9;
icnt = fix(icnt + 1);
itemp(1) = 0;
itemp(2) = 0;
itemp(3) = 0;
itemp(4) = 0;
ss = check_4 - check_1;
nrdp = fix(check_6 - check_7);
rpp = check_3 - check_2(11);
ierpp = fix(check_8 - check_9);
if( abs(ss)<=check_5 || icnt<=2 || icnt>=6 )
itemp(1) = 1;
end;
if( abs(nrdp)==0 )
itemp(2) = 1;
end;
if( abs(rpp)<=check_5 )
itemp(3) = 1;
end;
if( abs(ierpp)==0 )
itemp(4) = 1;
end;
itest_v(icnt) = fix(itemp(1).*itemp(2).*itemp(3).*itemp(4));
end %subroutine cmpare