%EZsingleExUserRF
global exp


   usrRefFg=0;
   prompt={'Enter GeneName to use as Reference:',...
       'Enter Specifics Term if used to futher specify Reference '}       
    dlg_title='User Reference Input';
    num_lines=1;
    def={'RF1','None'};
    answer=inputdlg(prompt,dlg_title,num_lines,def);
    rfGene= cell2mat(answer(1));
    if ~strcmpi(rfGene,'RF1')|| ~strcmpi(rfGene,'RF2'), usrRefFg=1; end
    rfSpec= answer(2); %if strcmpi(answer(2),'None'), rfSpec= ''; end
    rfGnSp= strcat(rfGene,rfSpec);
    if strcmpi(rfSpec,'None'), rfGnSp= strcat(rfGene,'-'); end


%for n=1:size(matFile,2)
n=1;    
%*********************************************************************
EZmultiGeneRFsLst %**
%*********************************************************
EZdiagRFsSheet    %** 
%********************
Exp(expN).Dexp(n).RFrnames=rnames;
Exp(expN).Dexp(n).RFdata= data;
%*********************************************************
RFconfig=0;
if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean'))&&...
        ~isempty(Exp(expN).Dexp(n).RFmean)&&...
    sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG'))&&...
        isempty(Exp(expN).Dexp(n).RFmeanG)
    RFconfig=1;
end
if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean'))==0 ||...
        isempty(Exp(expN).Dexp(n).RFmean)&&...
    sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG'))&&...
        ~isempty(Exp(expN).Dexp(n).RFmeanG)
    RFconfig=2;
end
if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean'))&&...
        ~isempty(Exp(expN).Dexp(n).RFmean)&&...
    sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG'))&&...
        ~isempty(Exp(expN).Dexp(n).RFmeanG)
    RFconfig=3;
end
Exp(expN).RFconfig= RFconfig;
Exp(expN).Dexp(n).RFconfig= RFconfig;
%**********************************************
try msgBadGeneName,  catch, end
try
    Exp(expN).Dexp(n).resetHtmpTg =5;  %Exp(expN).resetHtmpTg =5; 
    if RFconfig==0,
        RFconfigMsg= 'No RF1 references in this Experiment Job'
        Exp(expN).Dexp(n).resetHtmpTg =3; %Exp(expN).resetHtmpTg =3; 
    end
catch
end
%***************************

%*********************************************************************
%end
%###############################################################################
%}



%********Auto select Zone and load listboxGnOrf data**********
DexpN=1;
zeroCLn= zeros(1,DMnum);
Exp(expN).expLoadCnt= Exp(expN).expLoadCnt+1; expLdCnt= Exp(expN).expLoadCnt;
if expN==1
    set(handles.zoneRad1,'value',1)
    set(handles.zoneRad2,'value',0)
    set(handles.zoneRad3,'value',0)
    orfLstSel=get(handles.GeneOrfTog,'value')
  if orfLstSel==1
   set(handles.listboxGnOrf,'string',Exp(1).Dexp(1).srtOrfLst)   
  else
   set(handles.listboxGnOrf,'string',Exp(1).Dexp(1).srtGnLst)
  end
  DNLaxes1= handles.DNLaxes1;
  Exp(1).hzeroCLn(expLdCnt)=plot(DNLaxes1,zeroCLn,1:DMnum,'y');
end

if expN==2
    set(handles.zoneRad1,'value',0)
    set(handles.zoneRad3,'value',0)
    set(handles.zoneRad2,'value',1)
    orfLstSel= get(handles.GeneOrfTog,'value');
  if orfLstSel==1
   set(handles.listboxGnOrf,'string',Exp(2).Dexp(1).srtOrfLst)   
  else
   set(handles.listboxGnOrf,'string',Exp(2).Dexp(1).srtGnLst)
  end
  DNLaxes2= handles.DNLaxes2;
  Exp(2).hzeroCLn(expLdCnt)=plot(DNLaxes2,zeroCLn,1:DMnum,'y');
  
end

if expN==3
    set(handles.zoneRad1,'value',0)
    set(handles.zoneRad2,'value',0)
    set(handles.zoneRad3,'value',1)
    orfLstSel=get(handles.GeneOrfTog,'value');
  if orfLstSel==1
   set(handles.listboxGnOrf,'string',Exp(3).Dexp(1).srtOrfLst)   
  else
   set(handles.listboxGnOrf,'string',Exp(3).Dexp(1).srtGnLst)
  end
  DNLaxes3= handles.DNLaxes3;
  Exp(3).hzeroCLn(expLdCnt)=plot(DNLaxes3,zeroCLn,1:DMnum,'y');
end

if Exp(4).interacPBsel==0  %if interaction "raw" don't show a center line
  for i=1:Exp(expN).expLoadCnt,
      try 
          set(Exp(expN).hzeroCLn(i),'visible','off'); 
      catch
          catchissue='Ln521'
          i
      end
  end
end

%***************************
% HtMapTog 'string', 'Current user L/N' selection'
Exp(expN).Dexp(DexpN).spotIndx= [];
if expN==1,
    Exp(1).htmapPBsel=0;
    set(handles.HtMapTog1,'string','L')
    EZhtMap
end
if expN==2,
    Exp(2).htmapPBsel=0;
    set(handles.HtMapTog2,'string','L')
    EZhtMap
end
if expN==3,
    Exp(3).htmapPBsel=0;
    set(handles.HtMapTog3,'string','L')
    EZhtMap
end
htMapTogPBfg=0;

%*******************************************************************