1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS
4 // Copyright (C) 2018 - Samuel GOUGEON
6 // Copyright (C) 2012 - 2016 - Scilab Enterprises
8 // This file is hereby licensed under the terms of the GNU GPL v2.0,
9 // pursuant to article 5.3.4 of the CeCILL v.2.1.
10 // This file was originally licensed under the terms of the CeCILL v2.1,
11 // and continues to be available under such terms.
12 // For more information, see the COPYING file which you should have received
13 // along with this program.
15 function x = %sp_inv(a)
18 msg = _("%s: Argument #%d: Square matrix expected.\n")
19 error(msprintf(msg, "%sp_inv", 1))
22 oldw = warning("query");
27 x = sparse(umf_lusolve(Lup, eye(ma, na)));