diffs.m

function out=diffs(var,dim)
%function out=diffs(var)
%Deliver the difference function, but stored in a vector the same size as the
%original.  A zero is stored in the last bin.


[m,n]=size(var);
out=zeros(m,n);

out(1:m-1,:)=diff(var);