function mr = ARIMA(p,d,q)
%              VEKTOR RADU MODELU TYPU ARIMA(p,d,q)
%     (suitable for NAG Foundation toolbox gateway routines 'NAGxxxxx')
% VOLANI: mr = ARIMA(p,d,q)
% VSTUP:
% p ... rad AR casti modelu (p>=0, cele cislo)
% d ... rad diferencovani   (d>=0, cele cislo)
% q ... rad MA casti modelu (q>=0, cele cislo)
% Podminky korektnosti (nejsou kontrolovany): p,d,q>=0; p+q>0.
%
% VYSTUP:
% mr=[p,d,q,0,0,0,0] ...
%    ... vektor radu modelu ARIMA(p,d,q)=SARIMA(p,d,q,0,0,0,0).

% (C) 1999, V. Vesely, Masaryk University of Brno (Czech Republic)
%
error(nargchk(3,3,nargin));
%
mr=[p,d,q,0,0,0,0];
