1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2// Copyright (C) 2017 - Samuel GOUGEON
3//
4// Copyright (C) 2012 - 2016 - Scilab Enterprises
5//
6// This file is hereby licensed under the terms of the GNU GPL v2.0,
7// pursuant to article 5.3.4 of the CeCILL v.2.1.
8// This file was originally licensed under the terms of the CeCILL v2.1,
9// and continues to be available under such terms.
10// For more information, see the COPYING file which you should have received
11// along with this program.
12
13function TF = %s_2_s(A, B)
14    // Possible case: all components of both A and B have both strictly null
15    // imaginary parts
16    if isreal(A, 0) & isreal(B,0) then
17        TF = real(A) > real(B)
18    else
19        if isdef("%s_2_s_custom") & type(%s_2_s_custom)==13
20            TF = %s_2_s_custom(A,B);
21        else
22            msg = _("Complex comparison not supported. Please define %s_2_s_custom() or check your code.");
23            error(msg);
24        end
25    end
26endfunction
27