*Bug #15142 fixed - mopen(): wrong err value
[scilab.git] / scilab / modules / overloading / macros / %hm_a_s.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
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
13 function M1=%hm_a_s(M1,M2)
14
15     // hypermatrix + scalar
16
17     if and(size(M2)==[1 1]) then
18         M1.entries=M1.entries+M2
19     else
20         dims1=matrix(M1.dims,-1,1)
21         dims2=size(M2)';
22         dims2(3:size(dims1,"*"))=1;
23         if and(dims1==dims2) then //should not occur
24             M1.entries=M1.entries+matrix(M2,-1,1)
25         else
26             error(8)
27         end
28     end
29 endfunction