* FIXKGAIN.001 - runfile to load gain curve procedure FIXKGAIN
Proc FIXKGAIN(i,j)
* Usage: FIXKGAIN( CATNO, CLVER )
* I = catalog number of file; J = version number of CL table to correct
* Procedure to put in polynomial gain coefficients at K band
* from Rick Perley Nov96
* data for AN 1,2,5,7,9,10,15,17,18,19,21,23,24,26
  type 'Applying K band gain curves from Perley Nov96'
  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.9865e-01, 1.1829e-04, -2.5828e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 9.9803e-01, 2.6456e-04, -8.8779e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 9.7790e-01, 2.1827e-04, 6.0631e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 9.3145e-01, 6.4822e-05, 3.2411e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0025e+00, -6.3925e-04, 4.1509e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0039e+00, -1.4366e-03, 1.3302e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0015e+00, -8.5671e-04, 1.1899e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0001e+00, -2.5442e-04, 1.4135e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.2354e+00, -5.4233e-03, 4.2838e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0563e+00, -4.4853e-03, 8.9349e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1900e+00, -4.5741e-03, 7.8323e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0807e+00, -4.3259e-03, 5.7988e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1211e+00, -4.4119e-03, 4.0181e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0237e+00, -4.4341e-03, 2.0720e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0505e+00, -4.0583e-03, 8.1493e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0294e+00, -4.5965e-03, 1.7955e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0148e+00, -2.2827e-03, 8.7798e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0268e+00, -2.6965e-03, 6.7751e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0397e+00, -3.0055e-03, 5.6923e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0460e+00, -3.0999e-03, 5.2187e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0446e+00, -4.7754e-03, 1.2768e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0677e+00, -4.8379e-03, 8.6391e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0380e+00, -4.6650e-03, 1.4310e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0561e+00, -4.5963e-03, 9.4186e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0213e+00, -5.0084e-03, 2.9461e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0233e+00, -5.4772e-03, 3.2219e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0246e+00, -4.3182e-03, 1.8939e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0316e+00, -5.8436e-03, 2.7054e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.3267e+00, -4.9758e-03, -5.0773e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.2185e+00, -5.0266e-03, 3.7851e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1925e+00, -4.4157e-03, 3.0495e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0609e+00, -3.9023e-03, 6.2537e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0064e+00, -1.6581e-03, 1.0767e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0081e+00, -1.7138e-03, 9.1159e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0121e+00, -2.1570e-03, 9.6296e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0095e+00, -1.6752e-03, 7.3476e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1451e+00, -4.6894e-03, 3.7879e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1734e+00, -5.3343e-03, 4.1033e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.2212e+00, -6.0968e-03, 2.6234e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1459e+00, -5.7551e-03, 5.6757e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0287e+00, -1.9255e-03, 3.2308e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0173e+00, -1.8260e-03, 4.8308e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0505e+00, -1.3159e-03, 8.5670e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0152e+00, -1.2010e-03, 2.3735e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0240e+00, -4.9435e-03, 2.5482e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0138e+00, -4.1726e-03, 3.1611e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0153e+00, -4.0254e-03, 2.6483e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0176e+00, -4.4492e-03, 2.8160e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0174e+00, -1.8276e-03, 4.8094e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0985e+00, -2.1422e-03, -1.0201e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0686e+00, -2.0089e-03, 1.0752e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0316e+00, -2.0533e-03, 3.3333e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0259e+00, -2.9931e-03, 8.6505e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0186e+00, -3.0058e-03, 1.2120e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0296e+00, -3.0881e-03, 8.0420e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0243e+00, -3.5749e-03, 1.3143e-04, 0; 
 GO clcor; wait clcor 
 Finish