% ARTS   Call ARTS 
%
%    Calls ARTS where path to executable and verbosity are taken from personal
%    settings. That is, the settings ARTS_PATH (or ARTS1_PATH) and 
%    FMODEL_VERBOSITY are used (see futher*atmlab*).
%
%    Note that Matlab allows a call as
%        arts -h;
%    which can be usefull when working in Matlab and you want to use the
%    on-line documentation of ARTS. If your call needs an argument, put
%    all inside a string, as:
%       arts '-w all';
%
% FORMAT   status = arts( cfile, [errortol, arts1] )
%        
% OUT   status     Status returned by ARTS. Is 0 if all OK.
% IN    cfile      Name on control file, or OK command line option such as
%                  '-h'.
% OPT   errortol   Flag to tolerate error. If set to 0, an ARTS error gives
%                  rise also to a Matlab error. Default is 0.
%       arts1      Flag to use ARTS-1.0 instead of later version.

% 2004-09-07   Created by Patrick Eriksson .


function status = arts(cfile,errortol,arts1)

if nargin == 1
  errortol = 0;
end


if exist( 'arts1' )  &  arts1
  atmlab( 'require', {'ARTS1_PATH'} );
  exec = atmlab( 'ARTS1_PATH' );
  if ~ischar( exec )
    error('Path to ARTS1 executable must be a string.');
  end
else
  atmlab( 'require', {'ARTS_PATH'} );
  exec = atmlab( 'ARTS_PATH' );
  if isempty( exec )
    error('Path to ARTS executable must be a string.');
  end
end


atmlab( 'require', {'FMODEL_VERBOSITY'} );
rlevel = atmlab( 'FMODEL_VERBOSITY' );
if isempty( rlevel )
  rlevel = 0;
end


status = system( sprintf('%s -r%d0 %s', exec, rlevel, cfile ) );


if status  &  ~errortol
  fprintf('\n');
  error('An error occured while executing ARTS. See above.')
end