function a=tozeros(a)
% tozeros - Return array of zeros same size as given
%
% tozeros :: [Size->A] -> [Size->real].
%
% All entries are zero.

   a=zeros(size(a));

