; IDL procedure to average all the NGC1194 data
;HISTORY
;10SEP19 GIL initial version


 for iii=68,87,2 do begin $\
   getnod,iii,units='Jy',plnum=0 & accum & $\
   getnod,iii,units='Jy',plnum=1 & accum & $\
   endfor 

 for iii=93,112,2 do begin $\
   getnod,iii,units='Jy',plnum=0 & accum & $\
   getnod,iii,units='Jy',plnum=1 & accum & $\
   endfor 

ave
print,stddev( (*!g.s[0].data_ptr)[1000:2000])
; print observing summary
header
;-----------------------------------------------------------------------------
;Proj: TKFPA_30         Src   : NGC1194                     Obs : Glen Langston  

;Scan:        68        RADec :  03 03 49.1  -01 06 14     Fsky:  21.938877 GHz
;Int :         0        Eqnx  :  2000.0                    Frst:  22.235080 GHz
;Pol :         I        V     :  4076.0       OPTI-LSR     BW  : 200.000    MHz
;IF  :         0        AzEl  :  125.232      34.664       delF:  24.414    kHz
;Feed:         1        Gal   :  179.181     -48.960       Exp :  5796.4    s
;Proc:       Nod        UT    : +06 33 46.0   2010-09-06   Tcal:    2.31    K
;Seqn:         1        LST/HA: +00 15 27.4   -2.81        Tsys:   34.57    K
;-----------------------------------------------------------------------------
;
;Noise per channel is: 
print,stddev( (*!g.s[0].data_ptr)[7000:8000])
;    0.0022082413

;Maser peak is at 4741 km/sec.