Martha starts 090216
David S. finishes

** Beam 6b dead again; FAA radar is on
** Lost 3 hours because someone forgot to turn the ALFA motor on after
**   preceding S-band run.

** The drift is 5p1 +010542        
** This is a spring drift....
** The pos file name is therefore:    pos_090215_+010542s.sav
**
-- Working in:  /home/rutados/data/idl/work/proc/09.02.15
   cp /home/dorado3/dorado13/galaxy/idlraw/09.02.15/*list* .
   gedit cal090215.list
   gedit drift090215.list
   >idl
   >@wasinit2
   >@alfinit
--  > callist='cal090215.list'        
   > dir='/home/dorado3/dorado13/galaxy/idlraw/09.02.15' 
   > calib1,callist,dcalON,dcalOFF,dir=dir
   > help,dcalon,/st
   > calib2,dcalON,dcalOFF,ncalib
   > Any bad boards in system?
   : y
How many bad boards? [enter n]
: 2
Enter nbeam, npol of bad board
: 6,1
Enter nbeam, npol of bad board
: 7,1
   > help,ncalib,/st
   > save, ncalib,file='ncalib_090215.sav'    
** There are 26 cal values for this run ***
** Calibration looks ok, with some curvature nfit=3
** One high Tsys point in Beam 1 dropped

--  bpdgui
   Set the list of files (upper left; use "browse"): drift090215.list.
   Enter the new calsession: calsession_090215.sav
   Enter the new runpos: pos_090215_+010542s.sav 
   set CRAT to "fit", not "median"
**The interp regions here are [3472 to 3520] **

-- restore,'pos_090215_+010542s.sav'
   help,pos
** There are 26 drifts for this run **

MARTHA STOPS HERE AFTER FLAGGING 1st DRIFT (bb exists)
David works on the remainder

-- restore,'pos_090215_+010542s.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_090215_+010542s.sav'
-------------------------------------------------------------------------------

  d100008+010542.904700001.sav  q1  1 AGC     FAA on
  d101015+010542.904700003.sav	q1  0 AGC  
  d102022+010542.904700005.sav	q1  1 AGC
  d103028+010542.904700007.sav  q1  0 AGC
  d104036+010542.904700009.sav	q3  2 AGC   4 gps bursts 2 
  d105043+010542.904700011.sav  q1  0 AGC
  d110051+010542.904700013.sav	q1  2 AGC	
  d111058+010542.904700015.sav	q1  1 AGC
  d112106+010542.904700017.sav	q1  0 AGC
  d113113+010542.904700019.sav  q1  0 AGC   
  d114119+010542.904700021.sav  q1  0 AGC   
  d115126+010542.904700023.sav	q1  1 AGC
  d120134+010542.904700025.sav  q1  0 AGC   
  d121141+010542.904700027.sav  q1  0 AGC  
  d122149+010542.904700029.sav  q1  0 AGC   
  d123156+010542.904700031.sav  q1  0 AGC
  d124202+010542.904700033.sav  q1  0 AGC
  d125209+010542.904700035.sav  q1  1 AGC
  d130216+010542.904700037.sav  q1  0 AGC
  d131223+010543.904700039.sav  q1  0 AGC	
  d132230+010542.904700041.sav  q1  0 AGC 
  d133237+010543.904700043.sav  q1  1 AGC
  d134244+010542.904700045.sav  q1  0 AGC
  d135250+010542.904700047.sav  q2  0 AGC  most have continuum source
  d140257+010543.904700049.sav  q1  1 AGC
  d141304+010542.904700051.sav  q1  0 AGC

   save,pos,file='pos_090215_+010542s.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)
>   check_pos,pos

good dataset with little RFI.