function mpow, arr, power

return, (arr > 0.)^power -(-arr>0.)^power

end