function specintr
%
%  The function specintr opens a window that is used as an interface
%  to input the necessary parameters for the computation of Lagrangian
%  spectra by the subroutine spectr01.m
%
%
%
% --------------------------------------------------------------------
%  Written by Vassilis Zervakis, in June 1996, while at
%             AINCO - Interocean, Madrid, Spain
%
%---------------------------------------------------------------------
global specint specrot spec1
%
spec1 = figure('MenuBar','None',...
          'NumberTitle','off',...
          'Name','Spectrum interface',...
          'Color',[0.5 0.5 0.5],...
          'Units','Normalized',...
          'Position',[0.1 0.6 0.5 0.3]);
uicontrol('BackgroundColor',[1 1 1],...
          'ForegroundColor',[0 0 0],...
          'Units','Normalized',...
          'Position',[0.1 0.7 0.75 0.15],...
          'String','Number of days in one record of the ensemble : ',...
          'Style','text');
Ndays = 30.;
specint = uicontrol('BackgroundColor',[0.75 0.75 0.75],...
          'ForegroundColor',[0 0 0],...
          'Units','Normalized',...
          'Position',[0.85 0.7 0.10 0.15],...
          'String',num2str(Ndays),...
          'Style','edit');
Rotary = 0;
uicontrol('BackgroundColor',[1 1 1],...
          'ForegroundColor',[0 0 0],...
          'Units','Normalized',...
          'Position',[0.3 0.5 0.35 0.15],...
          'String','Rotary Spectrum ',...
          'Style','text');
specrot = uicontrol('BackgroundColor',[0.5 0.5 0.5],...
          'ForegroundColor',[0 0 0],...
          'Units','Normalized',...
          'Position',[0.7 0.5 0.05 0.15],...
          'Value',Rotary,...
          'Style','checkbox');
uicontrol('BackgroundColor',[0.75 0.75 0.75],...
          'ForegroundColor',[0 0 0],...
          'Units','Normalized',...
          'Position',[0.3 0.2 0.4 0.15],...
          'String','Continue',...
          'Style','Pushbutton',...
          'Callback',['global specint spec1 specrot,',...
                      'Ndays = str2num(get(specint,''string'')),',...
                      'Rotary= get(specrot,''Value''),',...
                      'Lagrspec(Ndays,Rotary),',...
                      'close(spec1)']);
