*Bug #15142 fixed - mopen(): wrong err value
[scilab.git] / scilab / modules / overloading / macros / %hm_m_r.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 f2=%hm_m_r(n1,f2)
14     // %s_m_r(n1,f2)
15     //operation  f2=n1*f2
16     //author Serge Steer INRIA
17     //!
18     [n2,d2]=f2(["num","den"]);
19     sz2=size(n2);
20     if prod(sz2)==0 then  f2=[],return,end
21     sz1=size(n1);
22     n1=n1(:)
23
24     if  or(sz2==-1) then
25         n2=n2+0;d2=d2+0;
26     end
27
28     //
29     if prod(sz2)==1 then
30         num=n1*n2,
31         den=d2(ones(n1))
32     else,
33         error(10)
34     end,
35
36     f2=rlist(matrix(num,sz1),matrix(den,sz1),f2.dt)
37 endfunction