function tchange2
%
%  This function allows the user to input their own value for 'T'.
%
% ----------------------------------------------------------------
%  Written by Mike Sparrow, while at
%             AINCO - Interocean, Madrid, Spain, in November 1997
% ----------------------------------------------------------------
%
%
global tone ttwo T11 T22 dT11 dT22 Umean
[rows, cols] = size(Umean)
if T11 ==[]
   T11 = ones(rows,cols); 
   T22 = ones(rows,cols);
   dT11 = zeros(rows,cols);
   dT22 = zeros(rows,cols);
end;
figt = figure('Name','User input of T11 and T22',...
            'NumberTitle','off',...
            'Menubar','none',...
            'Units','normalized',...
            'Position',[0.2 0.4 0.4 0.2],...
            'Color',[0.45 0.45 0.45]);
if tone == []
   tone = 1;
end
pos = [ .1, .7, .25, .15 ];
uimm(1) = uicontrol('style','text',...
                    'string','T11 = ',...
                    'enable','off',...
                    'horizontalalignment','left',...
                    'backgroundcolor',[1 1 1],...
                    'Units','normalized',...
                    'Position',pos);
uimm(2) = uicontrol('style','edit',...
                    'enable','on',...
                    'string',num2str(tone),...
                    'BackgroundColor',[.75 .75 .75],...
                    'Callback',['global tone,',...
                    'tone = str2num(get(gco,''string''));'],...
                    'Units','normalized',...
                    'Position',[pos(1)+pos(3),pos(2),.1,pos(4)]);
if ttwo == []
ttwo = 1;
end
pos = [ .55, .7, .25, .15 ];
uimm(3) = uicontrol('style','text',...
                    'string','T22 = ',...
                    'enable','off',...
                    'horizontalalignment','left',...
                    'backgroundcolor',[1 1 1],...
                    'Units','normalized',...
                    'Position',pos);
uimm(4) = uicontrol('style','edit',...
                    'enable','on',...
                    'string',num2str(ttwo),...
                    'BackgroundColor',[.75 .75 .75],...
                    'Callback',['global ttwo,',...
                    'ttwo = str2num(get(gco,''string''));'],...
                    'Units','normalized',...
                    'Position',[pos(1)+pos(3),pos(2),.1,pos(4)]);
%tone
%ttwo
%for r = 1:rows,
% for c = 1:cols,
%  T11(r,c) = tone
%  T22(r,c) = ttwo
% end;
%end;
uicontrol('BackgroundColor',[0.75 0.75 0.75],...
          'ForegroundColor',[0 0 0],...
          'Units','Normalized',...
          'Position',[0.3 0.2 0.4 0.2],...
          'String','Continue',...
          'Style','Pushbutton',...
          'Callback','tchange3');

