* Bugs 15838 15839 15842 16452 16454 fixed: gsort() for all sparse in all modes
[scilab.git] / scilab / modules / elementary_functions / macros / %spb_gsort.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 //
3 // Copyright (C) 2018 - 2020 - Samuel GOUGEON
4 //
5 // This file is hereby licensed under the terms of the GNU GPL v2.0,
6 // pursuant to article 5.3.4 of the CeCILL v.2.1.
7 // This file was originally licensed under the terms of the CeCILL v2.1,
8 // and continues to be available under such terms.
9 // For more information, see the COPYING file which you should have received
10 // along with this program.
11
12 function [A, k] = %spb_gsort(A, varargin)
13     lhs = argn(1)
14     if lhs > 1 then
15         [A, k] = gsort(A*1, varargin(:))
16     else
17         A = gsort(A*1, varargin(:))
18     end
19     A = (A==1)
20 endfunction