* FIXQGAIN.001 - runfile to load gain curve procedure FIXQGAIN
Proc FIXQGAIN(i,j)
* Procedure to put in polynomial gain coefficients at Q band
* from Rick Perley Dec96
* AN 3,4,6,8,11,12,13,14,16,20,22,25,27
  type 'Applying Q band gain curves from Perley Dec96'
  type 'These gain curves are normalized to 1 at maximum'
  getn i
  gainver j
  opcode 'gain'
  source ''
 ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1620e+00, -8.2638e-03, 1.0541e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1729e+00, -8.8200e-03, 1.1250e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1596e+00, -8.5795e-03, 1.1532e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1751e+00, -8.9787e-03, 1.1511e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1836e+00, -9.2497e-03, 1.1649e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.2009e+00, -9.9689e-03, 1.2368e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1903e+00, -9.7864e-03, 1.2579e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1969e+00, -9.8204e-03, 1.2245e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1643e+00, -8.6682e-03, 1.1436e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1593e+00, -8.5168e-03, 1.1386e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1554e+00, -8.4692e-03, 1.1538e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1559e+00, -8.5410e-03, 1.1700e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0770e+00, -3.9680e-03, 5.1134e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0804e+00, -3.9514e-03, 4.8543e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0726e+00, -3.7907e-03, 4.9487e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0815e+00, -3.9289e-03, 4.7337e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0628e+00, -1.7396e-03, 1.2047e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0910e+00, -2.1516e-03, 1.2712e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0563e+00, -1.6717e-03, 1.2402e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0708e+00, -2.0934e-03, 1.1565e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0939e+00, -5.3953e-03, 7.7519e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1036e+00, -5.7545e-03, 7.9924e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0986e+00, -5.5409e-03, 7.7821e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0999e+00, -5.6423e-03, 7.9693e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.2670e+00, -1.1363e-02, 1.2088e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.2710e+00, -1.1361e-02, 1.1908e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.2613e+00, -1.1049e-02, 1.1680e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.2785e+00, -1.1532e-02, 1.1938e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1078e+00, -5.0968e-03, 6.0246e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0837e+00, -4.6095e-03, 6.3492e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1076e+00, -5.1220e-03, 6.0976e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0863e+00, -4.8341e-03, 6.7704e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0591e+00, -3.2022e-03, 4.3390e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0707e+00, -3.2073e-03, 3.6364e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0693e+00, -3.3954e-03, 4.1611e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0661e+00, -3.0405e-03, 3.4948e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1909e+00, -9.9690e-03, 1.3014e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1934e+00, -1.0049e-02, 1.3050e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1939e+00, -1.0125e-02, 1.3218e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.2051e+00, -1.0518e-02, 1.3485e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0578e+00, -3.6343e-03, 5.7143e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0604e+00, -4.0133e-03, 6.6667e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0554e+00, -3.6681e-03, 6.0731e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0591e+00, -4.0512e-03, 6.9369e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1226e+00, -5.4484e-03, 6.0538e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1278e+00, -5.4635e-03, 5.8371e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1236e+00, -5.5051e-03, 6.1304e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1404e+00, -5.7174e-03, 5.8222e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1643e+00, -7.5541e-03, 8.6829e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1833e+00, -7.7000e-03, 8.0882e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1752e+00, -7.4552e-03, 7.9310e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1870e+00, -7.7590e-03, 8.0488e-05, 0; 
 GO clcor; wait clcor 
 Finish