function Atimesx = Aexplicit(x) global A Atimesx = A*x; return;