function r=%i_p_i(a,n)
-if or(n<0) then
- r=double(a)^n
-else
- if size(a,'*')==1 then
- r=iconvert(double(a)^double(n),inttype(a))
- else
- if size(n,'*')<>1 then
- error(43)
+ if or(n<0) then
+ r=double(a)^n
else
- n=double(n)
- r=a
- if size(a,1)==size(a,2) then
- for i=2:n,r=r*a,end
- else
- for i=2:n,r=r.*a,end
- end
- end
- end
-end
+ if size(a,'*')==1 then
+ r=iconvert(double(a)^double(n),inttype(a))
+ else
+ if size(n,'*')<>1 then
+ error(43)
+ else
+ n=double(n)
+ r=a
+ if size(a,1)==size(a,2) then
+ for i=2:n,r=r*a,end
+ else
+ mprintf(gettext("Warning: Syntax \""vector ^ scalar\"" is obsolete. It will be removed in Scilab 6.0.\n Use \""vector .^ scalar\"" instead.\n"));
+ for i=2:n,r=r.*a,end
+ end
+ end
+ end
+ end
endfunction