* 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 Mar95
* AN 3,4,8,12,13,14,16,22,25,27
  type 'Applying Q band gain curves from Perley Mar95'
  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.0305e+00, -3.2189e-03, 8.4838e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0756e+00, -5.7032e-03, 1.0756e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0806e+00, -6.4576e-03, 1.2941e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0545e+00, -4.7031e-03, 1.0149e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1088e+00, -5.9707e-03, 8.1884e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1435e+00, -7.3510e-03, 9.4145e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1128e+00, -6.1580e-03, 8.4013e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1416e+00, -7.4562e-03, 9.8153e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0527e+00, -3.2566e-03, 5.0345e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1123e+00, -6.0008e-03, 8.0133e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0457e+00, -2.7874e-03, 4.2472e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0863e+00, -4.5473e-03, 5.9908e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0682e+00, -3.0360e-03, 3.3771e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0809e+00, -4.2058e-03, 5.4675e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0644e+00, -2.0507e-03, 1.6336e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0824e+00, -3.7073e-03, 4.1718e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1816e+00, -7.1694e-03, 7.0771e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1735e+00, -6.7656e-03, 6.5972e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.2047e+00, -8.0313e-03, 7.8780e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1582e+00, -5.8976e-03, 5.4973e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0767e+00, -4.7456e-03, 7.3377e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0190e+00, -1.6512e-03, 3.5888e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0554e+00, -3.7491e-03, 6.3404e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0617e+00, -3.7998e-03, 5.8488e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1061e+00, -5.5307e-03, 7.2045e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0853e+00, -4.6718e-03, 6.3968e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0687e+00, -3.3716e-03, 4.1380e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0617e+00, -3.4921e-03, 4.9383e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0493e+00, -3.9677e-03, 7.9864e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0139e+00, -1.6143e-03, 4.6917e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0531e+00, -4.2814e-03, 8.6319e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0431e+00, -3.5709e-03, 7.4037e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1908e+00, -5.6573e-03, 4.1935e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.2238e+00, -5.4463e-03, 3.3137e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.2109e+00, -5.9786e-03, 4.2380e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.2226e+00, -6.7197e-03, 5.0709e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1522e+00, -7.0062e-03, 8.0614e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1543e+00, -6.5663e-03, 6.9845e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.2168e+00, -1.0031e-02, 1.1601e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1745e+00, -8.0672e-03, 9.3211e-05, 0; 
 GO clcor; wait clcor 
 Finish