function u=uH(x,tau)
%uH(x,tau) gives the upper boundary values for finite difference
%calculations in heat variables.  The values are obtained simply by
%evaluating vH in financial variables and converting to heat variables.
[junk,s]=fh(0,x,tau,tau);
v=vH(s,0,tau);
u=hf(v,s,0,tau);
end