function var_plot_zeroed(DAT)

%VAR_PLOT uses the output of VAR_SPHER to plot the empirical 
%variogram and spherical fit.
%
%Input: DAT = cell(5,1) = output from var_spher
%
%OUTPUT: plot 

p = [DAT{1},0];

D = DAT{2} ;

G = DAT{3} ;

plot(D,G,'.') ;

hold on ;


%Make fine grid to plot spherical var

Dmax = max(D);

del = Dmax/100;

DD = [del:del:Dmax]';

V = spher(p,DD);

plot(DD,V,'r-','LineWidth',1.5);