[compresult,ieract,ierexp,lout,kprint]=comp(ieract,ierexp,lout,kprint);

function [compresult,ieract,ierexp,lout,kprint]=comp(ieract,ierexp,lout,kprint);
compresult=[];

;
if( ieract==ierexp )
compresult = true;
if( kprint>=3 )
writef(lout,['     OK.' ' \n']);
end;
%format ('     OK.');
else;
compresult = false;
if( kprint>=3 )
writef(lout,[' *** COMPARE FAILED -- IERR =','%5i' ' \n'], ieract);
end;
%format (' *** COMPARE FAILED -- IERR =',i5);
end;
csnil=dbstack(1); csnil=csnil(1).name(1)~='@';
if csnil&&~isempty(inputname(3)), assignin('caller','FUntemp',lout); evalin('caller',[inputname(3),'=FUntemp;']); end
if csnil&&~isempty(inputname(4)), assignin('caller','FUntemp',kprint); evalin('caller',[inputname(4),'=FUntemp;']); end
if csnil&&~isempty(inputname(2)), assignin('caller','FUntemp',ierexp); evalin('caller',[inputname(2),'=FUntemp;']); end
if csnil&&~isempty(inputname(1)), assignin('caller','FUntemp',ieract); evalin('caller',[inputname(1),'=FUntemp;']); end
end %function comp