* FIXUGAIN.001 - runfile to load gain curve procedure FIXUGAIN
Proc FIXUGAIN(i,j)
* Procedure to put in polynomial gain coefficients at U band
* from Rick Perley Jan97
* Data only for AN 1,2,5,7,9,15,17,18,19,21,23,24,26,28
  type 'Applying U band gain curves from Perley Jan97'
  type 'These gain curves are normalized to 1 at maximum'
  getn i
  gainver j
  opcode 'gain'
  source ''
 ANTEN 1 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 9.7122e-01, 9.6809e-05, 1.2062e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0001e+00, -7.1482e-05, 1.3182e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 9.6612e-01, 2.4184e-04, 1.1355e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0000e+00, -2.6766e-05, 1.1584e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0116e+00, -6.7328e-04, 9.7842e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0132e+00, -7.3834e-04, 1.0363e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0118e+00, -6.7013e-04, 9.4880e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0131e+00, -7.6232e-04, 1.1101e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0557e+00, -1.7241e-03, 1.3334e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0636e+00, -2.0932e-03, 1.7228e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0524e+00, -1.6948e-03, 1.3702e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0613e+00, -2.0886e-03, 1.7801e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0708e+00, -2.3740e-03, 1.9909e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0658e+00, -2.2174e-03, 1.8677e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0699e+00, -2.3237e-03, 1.9298e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0678e+00, -2.2675e-03, 1.8951e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0232e+00, -9.9664e-04, 1.0697e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0254e+00, -1.0944e-03, 1.1798e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0216e+00, -9.9494e-04, 1.1480e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0252e+00, -1.1369e-03, 1.2815e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0280e+00, -1.2374e-03, 1.3675e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0261e+00, -1.1448e-03, 1.2538e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0288e+00, -1.2868e-03, 1.4378e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0273e+00, -1.1393e-03, 1.1905e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0566e+00, -2.2892e-03, 2.3163e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0639e+00, -2.5445e-03, 2.5343e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0552e+00, -2.2772e-03, 2.3487e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0630e+00, -2.4623e-03, 2.4046e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0171e+00, -1.0510e-03, 1.6172e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0224e+00, -1.2865e-03, 1.8492e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0177e+00, -1.0517e-03, 1.5623e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0225e+00, -1.3048e-03, 1.8935e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0816e+00, -2.3533e-03, 1.6967e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0847e+00, -2.5459e-03, 1.9137e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0817e+00, -2.3811e-03, 1.7349e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0817e+00, -2.4814e-03, 1.8835e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0136e+00, -8.8774e-04, 1.4475e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0138e+00, -7.7724e-04, 1.0949e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0142e+00, -8.6504e-04, 1.3191e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0135e+00, -7.3677e-04, 1.0068e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0558e+00, -1.8124e-03, 1.4719e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0592e+00, -1.9051e-03, 1.5337e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0555e+00, -1.9067e-03, 1.6377e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0490e+00, -1.7695e-03, 1.5986e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0438e+00, -1.5048e-03, 1.2912e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0457e+00, -1.6712e-03, 1.5266e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0435e+00, -1.5215e-03, 1.3297e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0144e+00, -8.5913e-04, 1.2788e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0144e+00, -7.8265e-04, 1.0615e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0131e+00, -8.0656e-04, 1.2394e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0134e+00, -7.3671e-04, 1.0134e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0554e+00, -1.7842e-03, 1.4370e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0562e+00, -1.7885e-03, 1.4224e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0547e+00, -1.7625e-03, 1.4189e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0600e+00, -1.7203e-03, 1.2337e-05, 0; 
 GO clcor; wait clcor 
 Finish