require,"kinconvert.i"

   data_dir = "/data/feb2001/feb02/"
   set_name = "sample_1_n5"
   info_name_end = "0001-0070.batchinfo"
   info_file = data_dir+set_name+"/"+set_name+"_"+info_name_end

   interim_storage="/results/feb2001/feb02/";
   comment="Sample #1, -5 C, Feb 2, 2001, 50 data, 20 dark"

// read info file
   include,info_file,1

//
// put here your modifications and/or additions to 
// information from the .info (or .batchinfo) file
//
   parent = data_dir

// change some variable names
   kinconvert
   
// ABOX = CCD subregion [x0,y0,x1,y1] to be analyzed
   
   abox = [2,840,620,985] //for horizontal slice

// DARKBOX = CCD subregion [x0,y0,x1,y1] for dark tracking
  
   darkbox = [250,145,350,180];

   qmin  = 0.001 ;
   qmax  = 0.5;
   an_width=1   // annulus width
   
   num_qcor=9;                          // number of partitions in q-space
   // QLIM_VAL_SET = [0.00578657,0.00689089,0.00794634,0.00902134,0.01011 59,0.0112104,0.012305,0.01338,0.0144452,0.0155495]

   
// 
// normalisation and data retrieval flags
//

   AZIMFLAG=1;
   NSYMMFLAG=0;
   REREAD=0
   REAVE=REREAD;
   
//
// multiple analysis feature
//

   MULTAVG=0;  
   //i=[1,2,3];
   i = indgen(1:numberof(M_ndata0));
   M_ndata0 = M_ndata0(i);
   M_ndata  = M_ndata(i);
   M_ndark0 = M_ndark0(i);
   M_ndark  = M_ndark(i);
   M_bindir = M_bindir(i);
   
//
// Kinetics Parameters
//

   ndata_cor_long = 30;   // number of long-time correlations
   write,"ndata_cor_long = "+pr1(ndata_cor_long)

   tbox = [2,6];               // range of good time slices
                               // Set tbox(1)=tbox(2) for full frame
   
//
// direct CCD mask definition
//

// from blemish-013101.i

exclflag=array(1,1242,1152);
exclflag(1:1,1:0)=0;             // added 11/09/00, MB
exclflag(2:3,1:1)=0;             // added 11/09/00
exclflag(29:77,670:673)=0;       // added 11/09/00
exclflag(40:54,1:0)=0;
exclflag(56:62,938:983)=0;       // added 11/09/00
   // exclflag(88:90,1:0)=0;
exclflag(87:92,1:0)=0;           // modified 11/09/00
exclflag(94:103,944:0)=0
exclflag(106:113,993:1004)=0;
   // exclflag(128:128,1:0)=0;
exclflag(125:130,1:0)=0;         // modified 11/09/00
exclflag(134:138,929:0)=0;
exclflag(188:195,1:0)=0;         // added 11/09/00
exclflag(188:248,1099:1106)=0;   // added 11/09/00
exclflag(188:286,1101:1104)=0;   // added 11/09/00
exclflag(237:282,985:990)=0;     // added 11/09/00
exclflag(256:303,943:945)=0;
exclflag(272:273,1:0)=0;
   // exclflag(360:360,1:0)=0;
exclflag(334:377,1:0)=0;         // modified 11/09/00
exclflag(334:770,1054:1059)=0;   // added 11/09/00
exclflag(400:415,151:172)=0;     // added 11/09/00
exclflag(400:560,660:791)=0;     // added 11/09/00
exclflag(418:421,1:0)=0;         // added 11/09/00
exclflag(420:434,617:631)=0;     // added 11/09/00
exclflag(425:429,1:0)=0;
exclflag(469:476,1:0)=0;         // added 11/09/00
exclflag(487:501,985:0)=0;       // added 11/09/00
exclflag(507:508,946:947)=0;
exclflag(522:522,1:0)=0;         // added 11/09/00
exclflag(523:527,)=0;
//exclflag(578:592,1108:1126)=0; // added 11/09/00
                                // removed 02/01/01
exclflag(602:602,1:0)=0;         // added 11/09/00
exclflag(790:793,1:0)=0;
exclflag(1192:1192,1:0)=0;
exclflag(1:0,983:983)=0;

exclflag(443:504,791:0)=0; // added 11/12/00 
exclflag(523:526,791:0)=0; // added 11/12/00 

exclflag(146:152,529:0)=0; // added 01/31/01 
exclflag(256:260,701:0)=0; // added 01/31/01 

exclflag=short(exclflag(abox(1)+col_beg:abox(3)+col_beg,abox(2)+row_beg:abox(4)+row_beg));

//
// blocked by beamstop
//
exclflag(235-abox(1):375-abox(1),943-abox(2):abox(4)-abox(2)) = 0;