[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);

function [srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
persistent nerr ; 

if isempty(nerr), nerr=0; end;
if( numxer(nerr)~=infot )
fatal = true;
if( kprint>=3 )
writef(nout,['  ILLEGAL VALUE OF PARAMETER NUMBER ','%2i',' NOT D','ETECTED BY ','%6s',' ' ' \n'], infot , srnamt);
end;
end;
return;
%format ('  ILLEGAL VALUE OF PARAMETER NUMBER ',i2,' NOT D','ETECTED BY ',a6,' ');
end %subroutine chkxer