Martha starts 08.12.13

** Observer notes low power in Beam 5b same as other nights.
** Shows lower calrat but we keep it here.
 
** The drift is 8p2 +015648        
** This is a spring drift....
** The pos file name is therefore:    pos_080514_+015648s.sav
**
-- Working in:  /home/rutados/data/idl/work/proc/08.05.14
   cp /home/dorado13/galaxy/idlraw/08.05.14/*list* .
   gedit cal080514.list  
   gedit drift080514.list 
   >idl
   >@wasinit2
   >@alfinit
-- > callist='cal080514.list'           
   > dir='/home/dorado13/galaxy/idlraw/08.05.14'  
   > calib1,callist,dcalON,dcalOFF,dir=dir
   > help,dcalon,/st
   > calib2,dcalON,dcalOFF,ncalib
   > Any bad boards in system?
     n
   > help,ncalib,/st
   > save, ncalib,file='ncalib_080514.sav'     

** There are 16 cal values for this run ***
** The calibration looks ok 
** One high Tsys point Beam 6 dropped (2nd one)
** Beam 5b kept though power low.

-- Set up and run the BPD gui.
   > bpdgui

   Enter the new calsession: calsession_080514.sav
   Enter the new runpos: pos_080514_+015648s.sav 
   Be sure to set CRAT to "fit", not "median"

**The interp regions here are [3485 to 3523].**

-- restore,'pos_080514_+015648s.sav'
   help,pos
** There are 16 drifts for this run **

-- restore,'pos_080514_+015648s.sav'
-- restore,'d214400+294831.526180333.sav'
-- flagbb,dred,cont_pt,mask,pos,GAUSAV=11,HAN=3,AGC=1,n1=0,n2=6

   save,pos,file='pos_080514_+015648s.sav'
--------------------------------------------------------------------------------

  d134926+015648.813500226.sav  q1  2 AGC   GPS 412-599
  d135935+015649.813500228.sav  q1  1 AGC   GPS 0-30
  d140943+015649.813500230.sav  q1  1 AGC   
  d141953+015649.813500232.sav  q1  2 AGC   
  d143002+015649.813500234.sav  q1  1 AGC   
  d144010+015649.813500236.sav  q1  1 AGC   
  d145019+015649.813500238.sav  q1  1 AGC   
  d150028+015649.813500240.sav  q1  2 AGC   
  d151036+015649.813600002.sav  q1  1 AGC   cont 6
  d152046+015649.813600004.sav  q1  nada
  d153055+015649.813600006.sav  q1  1 AGC   GPS 284-389
  d154103+015649.813600008.sav  q1  1 AGC   cont 4,3
  d155112+015649.813600010.sav  q1  1 AGC   polRFI 0-25 1379 MHz
  d160121+015648.813600012.sav  q1  nada    cont 5,0,2,6
  d161128+015649.813600014.sav  q1  2 AGC   
  d162137+015649.813600016.sav  q1  nada    

   save,pos,file='pos_080514_+015648s.sav'
   restore,'pos_080514_+015648s.sav'

   strip_pv,dred,cont_pt,msmooth,n1=0,n2=6,showpol=3,gausav=11,han=5,rfimod=0,units=1
   inspect,msmooth,showpol=3,nstrip=4,agc=1
   reviewbb,dred,cont_pt,mask,pos,GAUSAV=11,HAN=3,AGC=1,n1=0,n2=6

>   print,where(pos.badbox[0,0,0,2] eq 0)

** Overall this is a good dataset, with good baselines and not much rfi 
** We wish all datasets were like this one.....