Reorganization
[scilab.git] / scilab / modules / integer / macros / %i_p_s.sci
1 function r=%i_p_s(a,n)
2 if or(int(n)<>n)|or(n<0) then
3   r=double(a)^n
4 else
5   if size(a,'*')==1 then
6     r=iconvert(double(a)^n,inttype(a))
7   else
8     if size(n,'*')<>1 then
9       error(43)
10     else
11       r=a
12       if size(a,1)==size(a,2) then
13         for i=2:n,r=r*a,end
14       else
15         for i=2:n,r=r.*a,end
16       end
17     end
18   end
19 end  
20 endfunction