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