function fig = solartime()
load solartime
h0 = figure('Units','points', ...
'Color',[1 1 0], ...
'Colormap',mat0, ...
'FileName','A:\solartime.m', ...
'MenuBar','none', ...
'Name','solar time', ...
'NumberTitle','off', ...
'PaperPosition',[18 180 576 432], ...
'PaperUnits','points', ...
'Position',[359.25 85.5 219.75 125], ...
'Tag','solartime', ...
'ToolBar','none');
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText4');
nk=get(m,'string');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[129.75 93 65 30], ...
'string',nk,...
'Style','edit', ...
'callback','solartimecal',...
'Tag','daynumber');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[129 51.75 65 30], ...
'string','52.5',...
'Style','edit', ...
'callback','solartimecal',...
'Tag','lstandard');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[129 11.25 65 30], ...
'Style','edit', ...
'callback','solartimecal',...
'Tag','standardtime');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'ListboxTop',0, ...
'Position',[17.25 87 93.75 35], ...
'Style','text', ...
'string','day number',...
'fontsize',15,...
'BackgroundColor',[1 1 0], ...
'foregroundcolor',[1 0 0.5020],...
'Tag','StaticText3');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'ListboxTop',0, ...
'Position',[18.75 49.5 90 35], ...
'Style','text', ...
'string','standard longitude',...
'fontsize',15,...
'BackgroundColor',[1 1 0], ...
'foregroundcolor',[1 0 0.5020],...
'Tag','StaticText4');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'ListboxTop',0, ...
'Position',[20.25 11.25 87.75 24.75], ...
'Style','text', ...
'string','standard time',...
'fontsize',15,...
'BackgroundColor',[1 1 0], ...
'foregroundcolor',[1 0 0.5020],...
'Tag','StaticText5');
if nargout > 0, fig = h0; end
