[kontrl]=xsetf(kontrl);

function [kontrl]=xsetf(kontrl);
persistent junk xern1 ; 

if isempty(junk), junk=0; end;
%***BEGIN PROLOGUE  XSETF
%***PURPOSE  Set the error control flag.
%***LIBRARY   SLATEC (XERROR)
%***CATEGORY  R3A
%***TYPE      ALL (XSETF-A)
%***KEYWORDS  ERROR, XERROR
%***AUTHOR  Jones, R. E., (SNLA)
%***DESCRIPTION
%
%     Abstract
%        XSETF sets the error control flag value to KONTRL.
%        (KONTRL is an input parameter only.)
%        The following table shows how each message is treated,
%        depending on the values of KONTRL and LEVEL.  (See XERMSG
%        for description of LEVEL.)
%
%        If KONTRL is zero or negative, no information other than the
%        message itself (including numeric values, if any) will be
%        printed.  If KONTRL is positive, introductory messages,
%        trace-backs, etc., will be printed in addition to the message.
%
%              ABS(KONTRL)
%        LEVEL        0              1              2
%        value
%          2        fatal          fatal          fatal
%
%          1     not printed      printed         fatal
%
%          0     not printed      printed        printed
%
%         -1     not printed      printed        printed
%                                  only           only
%                                  once           once
%
%***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
%                 Error-handling Package, SAND82-0800, Sandia
%                 Laboratories, 1982.
%***ROUTINES CALLED  J4SAVE, XERMSG
%***REVISION HISTORY  (YYMMDD)
%   790801  DATE WRITTEN
%   890531  Changed all specific intrinsics to generic.  (WRB)
%   890531  REVISION DATE from Version 3.2
%   891214  Prologue converted to Version 4.0 format.  (BAB)
%   900510  Change call to XERRWV to XERMSG.  (RWC)
%   920501  Reformatted the REFERENCES section.  (WRB)
%***end PROLOGUE  XSETF
if isempty(xern1), xern1=repmat(' ',1,8); end;
%***FIRST EXECUTABLE STATEMENT  XSETF
if( abs(kontrl)>2 )
xern1=sprintf(['%8i'], kontrl);
xermsg('SLATEC','XSETF',['INVALID ARGUMENT = ',xern1],1,2);
return;
end;
%
[junk ,dumvar2,kontrl]=j4save(2,kontrl,true);
end
%DECK XSETUA