1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2// Copyright (C) ENPC - JPC
3// Copyright (C) INRIA - Serge Steer , Francois Delebecque
4//
5// Copyright (C) 2012 - 2016 - Scilab Enterprises
6//
7// This file is hereby licensed under the terms of the GNU GPL v2.0,
8// pursuant to article 5.3.4 of the CeCILL v.2.1.
9// This file was originally licensed under the terms of the CeCILL v2.1,
10// and continues to be available under such terms.
11// For more information, see the COPYING file which you should have received
12// along with this program.
13
14function   [den,num,err]=arl2(y,den0,n,imp,all)
15    [lhs,rhs]=argn(0);
16    // test the system type 'c' 'd' or dt
17    if rhs <= 4 then all="one";end
18    if rhs <= 3 then imp=0;end
19    if all=="all" then
20        [den,num,err]=arl2_ius(y,den0,n,imp,all);
21    else
22        [den,num,err]=arl2_ius(y,den0,n,imp);
23    end;
24    if lhs<=1 then
25        den=syslin("d",num,den);
26    end
27endfunction
28