function [alpha,k,sigma,L,ui,ua]=par1
%
% Function par sets parameters for the nonlinear PDE
  alpha=1.0e-06;
  k=1.0;
  sigma=5.67e-08;  
  L=0.1;
  ui=298.0;
  ua=2000.0;
%
% End of par1
