Massive indent of all codes:
[scilab.git] / scilab / modules / overloading / macros / %r_m_hm.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function f1=%r_m_hm(f1,n2)
11     // %r_m_s(f1,n2)
12     //f1 =  f1*n2
13     //author Serge Steer INRIA
14     //!
15
16     [n1,d1]=f1(["num","den"]),
17     sz1=size(n1);
18     if prod(sz1)==0 then return,end
19     sz2=size(n2);
20     n2=n2(:)
21
22     if or(sz1==-1) then
23         n1=n1+0;d1=d1+0;
24     end
25     if prod(sz1)==1 then
26         num=n1*n2,
27         den=d1(ones(n2))
28     else,
29         error(10)
30     end,
31
32     f1=rlist(matrix(num,sz2),matrix(den,sz2),f1.dt)
33 endfunction
34